M.Y.U

uses wincrt;
var
tahun : integer;

begin
writeln('      Program menentukan tahun kabisat by:muyufar.blogspot.com');
writeln('                     ___======================___');
writeln(' ');
write ('                             Tahun Berapa ?:'); readln (tahun);
     if (tahun mod 100 = 0) then

     begin
          if tahun mod 400=0 then
          writeln ( '                         Tahun ini adalah Tahun kabisat' )

     else
         writeln ( '                  bukan tahun Kabisat:');
                   
end

else
begin
     if (tahun mod 4 = 0) then
        writeln ( 'tahun kabisat' )
     else
         writeln(' ');
         writeln ( '                          Tahun ini bukan tahun kabisat' );
end;
end.

artikel tentang Menentukan tahun kabisat ini semoga membantu..!!!