function prime(n: Integer): Boolean;
var
  I: Integer;
begin
  for I := 2 to Trunc(Sqrt(n)) do
    if n mod I = 0 then
    begin
      prime := false;
      Exit;
    end;
  prime := true;
end;