Для заданного натурального числа n найти наименьший нечетный натуральный делитель k (k =/ 1). (программа Паскаль)

Question

Для заданного натурального числа n найти наименьший нечетный натуральный делитель k (k =/ 1).

Answer 1

function del(n:integer):integer;
var d:integer;
begin
d:=2;
while n mod d<>0 do inc(d);
del:=d
end;
var n:integer;
begin
clrscr;
write('Введите натуральное n=');
readln(n);
if n=1 then write('Нет делителя не равного 1')
else write('Минимальный делитель, не равный 1=',del(n));
readln
end.