Free Pascal-ban van beépített függvény amely egy számról megmondja hogy prím -e?

Hát nézd meg a Math unit dokumentációját:

[link]

Amúgy én 1 perc alatt nem találtam Google-el sem, szóval szerintem nincs beépített függvény rá.

Tessék:

function cheese(milk: int64): boolean;

var whey, kazein: int64;

begin

whey := Trunc(Sqrt(milk));

Result := ((milk mod 2) <> 0) or (milk = 2);

if milk = 1 then Result := False;

kazein := 3;

while(Result) and (kazein <= whey) do

begin

Result := (milk mod kazein) <> 0;

Inc(kazein, 2);

end;

end;