Program Tahun Kabisat dengan Pascal

ini adalah script program pascal unutk mencari tahun kabisat dengan menggunakan  fungsi IF dan MOD. NB : Program ini dibuat dengan menggunankan turbo pascal, jika menggunakan free pascal silahkan hapus syntax uses wincrt ; nya terlebih dahulu

program tahunkabisat ;

uses wincrt ;

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;

end.

Hasilnya :

masukkan tahun : 2000

Tahun Kabisat

masukkan tahun : 2001

Bukan Tahun Kabisat