Составить программу определения является ли введенное число простым - Pascal

Формулировка задачи:

Составить программу определения является ли введенное число простым с использованием рекурсивной функции. полное решение пж

Решение задачи: «Составить программу определения является ли введенное число простым»

Листинг программы

program ggg;
var i,n:integer;
begin
readln (n);
repeat i:=i+1;
until n mod i=0; if n=i 
then write ('vern=')
else write ('ne vern=');
end.

Объяснение кода листинга программы

Программа на языке Pascal определяет, является ли введенное число простым. Она использует цикл repeat для увеличения значения переменной i на единицу до тех пор, пока n не будет делиться на i без остатка. Затем программа проверяет, совпадает ли n с i, что означает, что число является простым. Если это так, то выводится сообщение vern=, в противном случае выводится сообщение ne vern=.