đ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.