function Simple(n:longint):boolean;
var
i:longint;
begin
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
Simple:=false;
exit
end;
Simple:=true;
end;
function Simple(n:longint):boolean;
var
i:longint;
begin
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
Simple:=false;
exit
end;
Simple:=true;
end;