15 lines
222 B
ObjectPascal
15 lines
222 B
ObjectPascal
function IsPrime(const x: integer): Boolean;
|
|
var
|
|
i: integer;
|
|
begin
|
|
i := 2;
|
|
repeat
|
|
if X mod i = 0 then
|
|
begin
|
|
Result := False;
|
|
Exit;
|
|
end;
|
|
Inc(i);
|
|
until i > Sqrt(x);
|
|
Result := True;
|
|
end;
|