Download: http://www.mediafire.com/?8s58n4lkf682wik
PROGRAM CT53;
USES crt;
VAR n: INTEGER;
BEGIN
clrscr;
Writeln('Chuong trinh Nam nhuan');
Write('Nhap nam : '); Readln(n);
IF (n MOD 400 =0) OR ((n MOD 4 =0) AND (n MOD 100 <>0)) THEN
Writeln('Nam nhuan') ELSE writeln('Khong phai nam nhuan');
Readln
END.
PROGRAM CT53;
USES crt;
VAR n: INTEGER;
BEGIN
clrscr;
Writeln('Chuong trinh Nam nhuan');
Write('Nhap nam : '); Readln(n);
IF (n MOD 400 =0) OR ((n MOD 4 =0) AND (n MOD 100 <>0)) THEN
Writeln('Nam nhuan') ELSE writeln('Khong phai nam nhuan');
Readln
END.