Напишите программу которая...

Напишите программу которая определяет является ли число простым.

 

Program PrimeNumber;
Uses Crt;
var i,f,n:integer;
begin
     clrscr;
      write('Введите число:');
      readln(n);
      f:=0;  
      for i:=2 to trunc(sqrt(n)) do
              if (n mod i)=0 then f:=1;
      if (f=0) then writeln('Число является простым')
                     else writeln('Число не является простым');
      readkey;
end.