Дано натуральное N. Определить, является ли оно простым

Надеюсь поможетprogram tt; uses crt; var i,n: integer; f: boolean; begin ClrScr; writeln ('Введите число'); readln (n); f: =false; for i: =2 to n-1 do begin if n mod i=0 then f: =true; end; if f=true then writeln ('Непростое') else writeln ('Простое'); readln; end.