Буду очень благодарен а то вообще ничего не понятно)
Function Prost (x: longint): boolean; d: longint;
If x mod 2=0 then Prost:=(x=2)
else begin
d:=3;
while (int64 (d) * d lt;=x) and (x mod d lt; gt; 0) do:=d + 2;
Prost:=(int64 (d) * d gt; x) and (x lt; gt; 1);
end;
end;
Function Prost (x: longint): boolean; d: longint;
If x mod 2=0 then Prost:=(x=2)
else begin
d:=3;
while (int64 (d) * d lt;=x) and (x mod d lt; gt; 0) do:=d + 2;
Prost:=(int64 (d) * d gt; x) and (x lt; gt; 1);
end;
end;
