program b2;
var m,t:integer;
begin write('введите число:');
readln(t);
write('введите месяц:');
readln(m);
if (((m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12))and
(t>=1)and(t<=31))or
(((m=4) or (m=6) or (m=9) or (m=11))and(t>=1)and(t<=30))or
((m=2)and(t>=1)and(t<=29))
then writeln('Дата введена правильно')
else writeln('Дата введена не правильно');
end.