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.