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

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.