2_2 1

function GetNumber(): Integer;
var
   Input: string;
   Number: Integer;
   IsCorrect: Boolean;
begin
   IsCorrect := False;
   repeat
      try
         Writeln('Enter P');
         Readln(Input);
         Number := StrToInt(Input);
         if Number < 1 then
            Writeln(ErrorMessage)
         else
            IsCorrect := True
      except
         Writeln(ErrorMessage);
      end;
   until IsCorrect;
   GetNumber := Number;
end;