Вводится D(день) и M(месяц) невисокосного года. Какая дата была вчера? Паскаль

Предыдущий
вопрос Следующий
вопрос

program YesterdayDate
va
D, M: integer
begi
writeln('Enter the day and month of a non-leap year:')
readln(D, M);

if D = 1 the
begi
case M o
1, 3, 5, 7, 8, 10, 12: begi
D := 31
M := M - 1
end
2: begi
D := 28
M := 2
end
4, 6, 9, 11: begi
D := 30
M := M - 1
end
end
en
els
begi
D := D - 1
end;

writeln('Yesterday''s date is: ', D, '.', M)
end.