Найти наименьший делитель числа n, отличный от 1.

var  i, n: integer;begin  write('Введите число ');  Readln(n);  for i := 2 to n do    if (n mod i) = 0 then begin      write('Наименьший делитель равен ', i);      Break;    end;end.