Question

СРОЧНО!!!Решите пожалуйста программу в Паскале.Вводится целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1.

Answer 1

Readln(n);
for i:=2 to n do
if n mod i=0 then 
writeln(i);
break;
end.

Answer 2

Только строчки writeln(i) и break нужно поменять местами.