Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым. Программа Паскаль Цикл с пост условием

program zz1;

function Prost (a:longint) : boolean;

var i:longint;

f:boolean;

begin

if a < 2 then f:=false

else

begin

f:=true;

i:=2;

while (i * i < = a) and f do / / пока счетчик меньше корня из числа и нет делителей

if a mod i = 0 then f:=false / / если делитель, то не простое

else i:=i + 1;

end;

Prost:=f;

end;

var n:integer;

begin

writeln ('Введите натуральное число n='); / / вводим с клавиатуры число

readln (n);

if Prost (n) then writeln ('Простое') / / выводим ответ

else writeln ('Не простое');

end.