program oken;
uses crt;
type thang = 1..12;
var thg: thang;
nam,a: integer;
begin
clrscr;
write('Nhap nam: '); readln(nam);
write('Nhap thang cua nam ',nam,': '); readln(thg);
case thg of
1,3,5,7,8,10,12: writeln('So ngay cua thang ',thg,': 31');
2: if (nam mod 4=0) or (nam mod 400=0) then
writeln('So ngay cua thang 2: ',29)
else
writeln('So ngay cua thang 2: ',28);
else writeln('So ngay cua thang ',thg,': 30');
end;
readln;
end.