Алгоритм, который устанавливает – является ли число простым

var
  n,i,k:longint;
  p:boolean;
begin
  write('n=');
  readln(n);
  if n=0 then writeln(' это ноль!') else begin
    p:=true;
    for i:=2 to n div 2 do if n mod i=0 then begin p:=false;break;end;
    write(n,'-число ');
    if p then writeln('простое') else writeln ('не простое');
  end;
end.

var
  n,i,k:longint;
  begin
  writeln('введите число n');
  readln(n);
  k:=0;
  for i:=2 to n do begin
  if n mod i =0 then k:=k+1;
  if k>0 then break;
  end;
  if i=n then writeln('число является простым')
  else writeln('число не является простым')
  end.

    for i:=2 to Trunc(sqrt(n)) do

var
  n:longint;
function isp(n:longint):boolean;
var
  i,k:longint;
  p:boolean;
begin
    p:=true;
    if n>3 then begin
    i:=3;
    k:=round(sqrt(n));
    if odd(n) then
    repeat
      if n mod i=0 then p:=false;
      inc(i,2);
    until (i>=k) or (not p) else p:=false;
    end;
   isp:=p;
end;
begin
  repeat
    write('n=');
    readln(n);
  until n>1;
    write(n,' - ');
    if isp(n) then writeln('простое') else writeln ('составное');
end.

const
  NY: array [Boolean] of String[9] = ('составное', 'простое');
var
  n: Longint;
function isp(n: Longint): Boolean;
var
  i,k: Longint;
  p: Boolean;
begin
  p:=n>1; { натуральные больше 1 }
  if n>3 then begin
    if Odd(n) then begin
      i:=3; k:=Trunc(sqrt(n));
      repeat
        if n mod i=0 then p:=false;
        Inc(i,2);
      until not p or (i>=k)
    end else p:=False;
  end;
  isp:=p;
end;
begin
  repeat
    write('n='); readln(n);
  until n>1;
  WriteLn(n,' - ',NY[isp(n)]);
end.

function isPrime(x:LongInt):Boolean;
var i:Integer;
begin
isPrime:=False;
if (not odd(x) and (x<>2)) or (x=1) then Exit;
i:=3;
while i<=Round(sqrt(x)) do
 begin
  if x mod i=0 then Exit;
  inc(i,2);//Проверяем только нечётные делители
 end;
isPrime:=true;
end;

    if ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0) then {...}

while i<=Round(sqrt(x)) do

function IsPrime(n: longint): boolean;
var i, p: longint;
begin
  IsPrime := (n = 2) or (n = 3);
  if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
    then begin
      IsPrime := true;
      i := 5;
      p := trunc(sqrt(n));
      while i <= p do
        begin
          if n mod i = 0
            then begin
              IsPrime := false;
              break
            end;
          inc(i, 2);
          if i mod 3 = 0 then inc(i, 2)
        end
    end
end;

  delta:=2;
  while () do
  begin
............
    delta:=delta xor $06; - смена шага - то 2 то 4
    inc(i, delta);
  end;

function IsPrime(n: longint): boolean;
var i, sqrtn, delta: longint;
begin
  IsPrime := (n = 2) or (n = 3);
  if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
    then begin
      IsPrime := true;
      i := 5;
      delta := 2;
      sqrtn := trunc(sqrt(n));
      while i <= sqrtn do
        begin
          if n mod i = 0
            then begin
              IsPrime := false;
              break
            end;
          inc(i, delta);
          delta := delta xor 6 {смена шага - то 2 то 4}
        end
    end
end;

function IsPrime(n: Longint): Boolean;
var i, sqrtn, delta: Word;
begin
  if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0) then begin
    i := 5;
    delta := 2;
    sqrtn := Trunc(sqrt(n));
    IsPrime := False;
    while i <= sqrtn do begin
      if n mod i = 0 then Exit;
      Inc(i, delta);
      delta := delta xor 6; {смена шага, то 2, то 4}
    end;
    IsPrime := True;
  end else
    IsPrime := (n = 2) or (n = 3);
end;