Дата некоторого дня определяется двумя натуральными числами: 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 (m<1) or (n12) 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.