Простое ли число (Паскаль)?

Чтобы определить, является ли число N простым на Паскале, следует последовательно делить N на числа в промежутке от 2 до N/2. Если в процессе такого деления хотя бы один раз получится так, что остаток от деления будет составлять 0, значит число имеет помимо самого себя еще какой-то делитель. А следовательно число не является простым. Вот так легко определить является ли число простым.

Решение ниже:

program ex37;
uses crt;
var n, i,f, z: integer;
begin
clrscr;
write('Введите натуральное число n= ');
readln(n);
f:=0; {Начальное значение флага}
i:=2; {Начальное значение делителя}
z:=n div 2; {Конечное значение делителя }

while (i<=z) and (f=0) do
begin
if n mod i =0 then f:=1;
i:=i+1;
end;

if f=1 then
writeln('Число не простое')
else
writeln('Число простое');
readln;
end.