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

Входные данные
Вводится натуральное число x.

Выходные данные
Выведите наименьший делитель числа x, отличный от 1.

Примеры
входные данные
2
выходные данные
2
входные данные
6
выходные данные
2

program n;uses crt;var i,x:integer;beginwriteln('Введите число'); readln(x);i:=2;while (x mod i)<>0 do i:=i+1;writeln(i);end.