Дата некоторого дня определяется двумя натуральными числами: m(порядковый номер месяца) и n(число). По заданным m и n определить дату предыдущего дня (принять, что m и n не определяют 1 января).

Const
mont: array [1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
m, n: integer;
begin
write(m = );
readln(m);
write(n = );
readln(n);
if ((m=1) and (n=1)) or (m12) or (n>mont[m])  then
writeln(Неопределенная дата)
else
if n=1 then
begin
m:=m-1;
n:=mont[m];
writeln(n, -ое число , m, -ый месяц)
end
else
begin
n:=n-1;
writeln(n, -ое число , m, -ый месяц)
end;
end.