Пример кода на Pascal:

program FindDivisors;
var
N, i: Integer;
begin
write${}^{\prime }ВведитечислоN{:}^{\prime }$;
readln$N$;
writeln${}^{\prime }Делителичисл{а}^{\prime },N{,}^{\prime }{:}^{\prime }$;
for i := 1 to N do
begin
if N mod i = 0 then
writeln$i$;
end;
end.

Эта программа запрашивает у пользователя число N, а затем находит и выводит все делители этого числа.