cek tahun kabisat

program cek_kabisat;
uses wincrt;
var
tahun, a, b, c : integer;
begin
writeln ('PROGRAM MENENTUKAN TAHUUN KABISAT ATAUKAH BUKAN');
writeln ('========================================================');
write ('Masukkan tahun: '); read (tahun);
if (tahun mod 4 = 0) and (tahun mod 100 <> 0) then write ('Tahun ', tahun, ' adalah Kabisat')
else
if (tahun mod 400 = 0) then write ('Tahun ', tahun, ' adalah Kabisat juga')
else
write ('Tahun ', tahun, ' bukan tahun Kabisat')
end.