Langsung aja dech Cek Idot GAn :
uses crt ;
var
tahun : integer ;
begin
write ('masukkan tahun : ') ; readln (tahun) ;
if tahun mod 100 = 0 then
begin
if tahun mod 400 = 0 then
writeln ('Tahun Kabisat')
else
writeln ('Bukan Tahun Kabisat') ;
end
else
begin
if tahun mod 4 = 0 then
writeln ('Tahun Kabisat')
else
writeln ('Bukan Tahun Kabisat') ;
end;
readln;
end.
