uses crt;

var nam,ngay,thang:integer;

h:char;

BEGIN

clrscr;

Writeln(' Nhap Nam:'); Readln(nam);

Writeln(' Nhap Thang:'); Readln(thang);

Case thang of

1,3,5,7,8,10,12: ngay:=31;

4,6,9,11: ngay:=30;

else

If nam mod 4= 0 then ngay:=29 else ngay:=28;

end;

Writeln(' Nam ',nam,' Thang ',thang,' Co ',ngay,' ngay');

readln;

ENd.