Algoritma: Tahun Kabisat

program Tahun_Kabisat;
uses wincrt;
function kabisat(year: integer): boolean;
begin
kabisat:=(year mod 4 = 0) and ((year mod 100 <> 0) or (year mod 400=0));
end;
var Y:integer;
begin
writeln ('*******************TAHUN KABISAT*******************');
write ('Masukan Tahun = ');
readln (Y);
writeln('====================================================');
if(kabisat(Y)) then
writeln (Y, 'Adalah bukan tahun kabisat.');
writeln('****************************************************');
end.