điều kiện của tháng phải là giá trị nguyên lớn hơn 0 và bé hơn 13.

Chương trình:

Program songay;

uses crt;

var n,t:integer;

begin

       clrscr;

       repeat

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

              if (t<1) or (t>12) then

                     begin

                             writeln('Thang phai tu 1 den 12');

                             readln;

                             clrscr;

                     end;

       until (t>0) and (t<13);

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

       case t of

              1,3,5,7,8,10,12:write('Thang ',t,' cua nam ',n,' co 31 ngay');

              4,6,9,11:write('Thang ',t,' cua nam ',n,' co 30 ngay');

              2:if n mod 4=0 then write('Thang ',t,' cua nam ',n,' co 29 ngay')

                  else write('Thang ',t,' cua nam ',n,' co 28 ngay');

       end;

       readln;

end.

uses crt;

var n,t:integer;

k: boolean; 

begin

clrscr;

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

if (n mod 100=0) then k:=(n mod 400)=0 else k:=(n mod 4 )=0;

if k=true then

begin

repeat

clrscr;

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

until (t>0) and (t<13);
case t of

2: write('Co 29 ngay');

1,3,5,7,8,10,12: write('Co 31 ngay');

4,6,9,11: write('Co 30 ngay');

end;

end;

if (not k) then

begin

repeat

clrscr;

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

until (t>0) and (t<13);

case t of

2: write('Co 28 ngay');

1,3,5,7,8,10,12: write('Co 31 ngay');

4,6,9,11: write('Co 30 ngay');

end;

end;

readln;

end.