ПРОШУ ПОМОГИТЕ ОЧЕНЬ СРОЧНО Найдите самый маленький натуральный делитель числа x,...

Question

ПРОШУ ПОМОГИТЕ ОЧЕНЬ СРОЧНО
Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000).<br> Входные данные
Вводится натуральное число x.
Выходные данные
Выведите наименьший делитель числа x, отличный от 1.
Примеры
входные данные
2
выходные данные

Answer 1

Var x:integer;
begin
   readln(x);
    for var i:=2 to x do
      if (x mod i)=0 then begin
        writeln('delitel: ',i);
        exit;
      end;
end.

Comments

а откуда у тебя взялась переменная i?

---

если ты её не писал в var