Nhập vào 1 số nguyên N Cho biết N là năm nhuận hay năm không nhuận ( Pascal)

program kiemtra;

uses crt;

var n:longint;

begin

        clrscr;

        write(‘Nhap nam: ‘);  readln(n);

        if ((n mod 4=0) and (n mod 100<>0)) or (n mod 400=0) then 

                write(‘Nam ‘,n,’ la nam nhuan’)

        else write(‘Nam ‘,n,’ khong phai nam nhuan’);

        readln;

end.