Решение: Идея решения. Задача решается " в лоб". Делим число n последовательно на все числа от 1 до n и печатаем те, на которые число n делится без остатка
var n,i:longint; begin write('Введите число...'); readln(n); write('Делители числа ',n,' : '); i:=1; while i<=n do begin if n mod i = 0 then write(i,' '); inc(i); end; end.
