Дано число.Определить является ли оно простым. Программа на паскале. Напишите через while ИЛИ repeat.Заранее спасибо)

О,БОГИ!СПАСИБО ОГРОМНОЕ! А с repeat'ом можно?

var n,i: integer;begin write('Введите целое число = '); readln(n); i:=1; repeat i:=i+1 until n mod i = 0; if i=n then writeln('Число ',n,' простое') else writeln('Число ',n,' не простое');end.

Спасибо большое! Вы меня спасли

var n,i: integer;begin write('Введите целое число = '); readln(n); i:=2; while (n mod i <> 0) do i:=i+1; if i=n then writeln('Число ',n,' простое')        else writeln('Число ',n,' не простое');end.