Написать метод и программку угадывания дня и месяца, если задано

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadlnInteger('A=');
  for var y:=1 to 12 do begin
    var x:=a-31*y;
    if (x mod 12=0) and (x div 12).Between(1,31) then begin
      Writeln('Номер денька ',x div 12,', номер месяца ',y);
      Exit
      end
    end;
  Writeln('Неправильное значение А')
end.

Пример
A= 500
Номер денька 21, номер месяца 8