Помогите решить задачу с циклом while.Минимальный делитель.Дано целое число, не менее 2....

Question

Помогите решить задачу с циклом while.Минимальный делитель.Дано целое число, не менее 2. Выведите его наименьший натуральный делитель, отличный от 1.Без break!!!ПАСКАЛЬ ABC!!!​

---

Answer 1

var N,i:integer;

k:boolean;

BEGIN

readln(N);

i:=2;

while (k=False) do begin

if (N mod i=0) then k:=True;

i:=i+1;

end;

writeln(i-1);

end.