Допишите программу пожалуйста Дано целое число, не меньшее 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; writ...

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.