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

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.