найдите самый маленький натуральный делитель числа x, отличный от 1 (2 < = x < = 30000). входные данные вводится натуральное число x. выходные данные выведите наименьший делитель числа x, отличный от 1. примеры входные данные 2 выходные данные 2 входные данные 6 выходные данные 2
uses crt;
var i,x:integer;
begin
writeln('Введите число'); readln(x);
i:=2;
while (x mod i)<>0 do i:=i+1;
writeln(i);
end.