Question

Допишите программу пожалуйста
Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1.
var i,n,s:integer;
begin
read(n);
i:=2;
while s<>0 do
begin
s:= n mod i;
i:=i+1;
end;
writeln (i);
end.

Answer 1

var i,n,s:integer;
begin
    read(n);
        i:=2;  
          s:=1; {иначе не зайдешь в цикл вообще, т.к. изначально S=0]
             while s<>0 do
                begin
                      s:= n mod i;
                         if s <> 0 then
                           i:=i+1;
                 end;
writeln (i);
end.