2_2 working

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Math;

const
   ErrorMessage = 'Error! P should be natural number from 1 to 2147483647';
type
   TArray = array of Integer;

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

function GetSumOfDividers(N : Integer) : Integer;
var
   i, Last, Sum: Integer;
begin

   Sum := 1;
   Last := Trunc(Sqrt(N));
   //Write('1, ');
   for i := 2 to Last do
      if N mod i = 0 then
      begin
         if i*i = N then
         begin
            Sum := Sum + i;
            //Write(i, ' ');
         end
         else
         begin
            Sum := Sum + i + (N div i);
            //Write(i, ' + ', N div i, ', ');
         end;
      end;

   //Writeln('(', Sum, ')');
   GetSumOfDividers := Sum;
end;

function IsPerfect(N : Integer) : Boolean;
begin
   if GetSumOfDividers(N) = N then
      IsPerfect := True
   else
      IsPerfect := False;
end;

procedure Main;
var
   P, i, x : Integer;
begin
   EnterP(P);
   //Writeln(GetSumOfDividers(P));

   for i := 1 to P do
      if IsPerfect(i) then
      begin
         Write(i, ', !!!');
         //Writeln(GetSumOfDividers(i));
      end;
   Readln;
end;

begin
   Main;
end.