<![CDATA[size : 246
uploaded_on : Fri Feb 19 00:00:00 1999
modified_on : Wed Dec 8 14:03:34 1999
title : Is prime number
org_filename : IsPrime.txt
author : Timo Salmi
authoremail : Timo Salmi
description : Determine wether a number is a prime number or not
keywords :
tested : not tested yet
submitted_by : The CKB Crew
submitted_by_email : ckb@netalive.org
uploaded_by : nobody
modified_by : nobody
owner : nobody
lang : pas
file-type : text/plain
category : pascal-alg-maths
__END_OF_HEADER__
function ISPRIMFN (n : longint) : boolean;
label _exit;
var i : longint;
begin
isprimfn := true;
for i := 2 to Round(Sqrt(n)) do
if (n mod i) = 0 then begin
isprimfn := false;
goto _exit;
end;
_exit:
end; (* isprimfn *)
]]>