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

// 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