Логическая функция возвращает True, если её аргумент — простое число

function IsPrime (x: longint): boolean;
  var i: longint;
begin
IsPrime := true;
for i := 2 to round(sqrt(x)) do
  if x mod i = 0 then 
  begin
    IsPrime := false;
    exit; 
  end;
end;

Function Simple (Pr : Integer) : Boolean;
    Var I : Integer; LogPer : Boolean;
    Begin I := 2; {счетчик}
        Repeat
            LogPer := (Pr Mod I = 0); {логическая переменная, принимающая
                                                   значение TRUE,если число Pr составное}
            I := I + 1
        Until (I > Pr Div 2 + 1) Or (LogPer);
    {цикл завершаем в том случае, когда счетчик становится больше половины
    данного числа или обнаруживаем, что число составное}
        Simple := Not LogPer
    {значение функции равно TRUE, если число простое, и FALSE — в противном случае}
    End;

uses crt;
var n : integer;
 
function IsPrime (x: longint): boolean;
var i: longint;
begin
IsPrime := true;
for i := 2 to round(sqrt(x)) do
if x mod i = 0 then
begin
IsPrime := false;
exit;
end;
end;
 
begin
  write('Input n = '); read(n);
  if IsPrime(n) then write('n is prime')
  else write('n is not prime');
end.