Написать алгоритм и программу угадывания дня и месяца, если задано число A= 12*X+31* Y, где Х – номер дня, Y– номер месяца.

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