наименьший делитель числа больший чем 2, числа в диапазоне от 3 до 10^12, программа должна работать меньше 2 секунд

var

 n, p: int64;

 f: boolean;

begin

 Read(n);

 if n < 3 then

   Write('Нет решения')

 else

 begin

   f := false;

   p := 3;

   while (not f) and (sqr(p) <= n) do

   begin

     f := (n mod p = 0);

     p := p + 1

   end;

   if f then

     write(p - 1)

   else

     write(n);

 end;

end.