Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, предшествующей указанной — Pascal(Паскаль)

Program Case8;

Var
  D, M: Integer;

Begin
  WriteLn('Введите день и месяц:');
  ReadLn(D, M);
  Case D Of
    1:
      Begin
        Case M of
          1, 2, 4, 6, 8, 9, 11:
            D := 31;
          3:
            D := 28;
        Else
          D := 30;
        End;
        Dec(M);
      End;
  Else
    Dec(D);
  End;
  WriteLn('предшествующая дата: ', D, '.', M);

End.