Процедура которая выводит на экран все делители переданного ей числа в одну строчку. ПАСКАЛЬ.

program z1;

var a: integer;

procedure D(a:integer);

var i:integer;

begin

write('Делители числа: ');

for i:=1 to a div 2 do

if a mod i = 0 then write(i,' ');

write(a)

end;

begin

write('Введите число (a>0): ');

readln(a);

D(a)

end.

Объяснение:

Просто перебираем все числа от 1 до половины числа и если остаток от деления равен 0, то выводим на экран делитель, в конце выводим само число