Viết chương trình nhập vào 1 năm nào đó. Kiểm tra xem năm đó là năm có 365 ngày hay 366 ngày

program bai_giai;

uses crt;

var n:longint;

begin

clrscr;

begin

write('nhap vao 1 nam:');readln(n);

if(n mod 4=0)then write('nam do co 366 ngay')else write('nam do co 365 ngay');

end;

readln;

end.