Viết chương trình 1 năm bất kỳ. Xuất ra màn hình Có phải năm nhuận hay không ( năm nhuận: hết 400 hoặc 4 Nhưng không chia hết cho 100) <Pascal>

program oken;
uses crt;
var nam: longint;
begin
    clrscr;
    write('Nhap nam: '); readln(nam);
    if (nam mod 4=0) or (nam mod 400=0)  and (nam mod 100<>0) then
        writeln('Nam ',nam,' la nam nhuan')
    else
        writeln('Nam ',nam,' khong phai la nam nhuan');
    readln;
end.

uses crt;
var n:longint;
begin
clrscr;
   write('Nhap 1 nam bat ky: ');readln(n);
   if (n mod 4=0)and(n mod 100<>0) then writeln('Day la nam nhuan;') else writeln('Day khong la nam nhuan;');
readln;
end.