uses crt;

var t,n,d: integer;

begin

clrscr;

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

write ('nhap thang: ');   readln (t);

if t=2 then

begin

if n mod 4=0 then d:=29 else d:=28;

end

else if (t=4) or (t=6) or (t=9) or (t=11) then d:=30

else d:=31;

writeln ('thang ',t,' nam ',n,' co ',d,' ngay');

readln;

end.

uses crt;

var t, n : integer;

begin

clrscr;

write('nhap so thang va nam :');readln(t, n);

case t of 

1, 3, 5, 7, 8, 10, 12 : writeln('thang ', n ,' co 31 ', ngay');

4, 6, 9, 11 : writeln('thang ', n ,' co 30 ', ngay’);

if (t = 2) and (n % 4 = 0) then writeln('thang 2 co 29 ngay');

if (t <> 2) and (n % 4 <> 0) then writeln('thang 2 co 28 ngay');

readln

end.