Написание программы через процедуры.

[Руслан56]

Составьте программу получения в порядке убывания всех делителей данного числа.

Написал такую программу, теперь требуют написать ее через функцию.
Ошибся в заголовке, нужно через функцию. Пожалуйста))

program pro2;
var
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then writeln('=', i);
end.

[Stilet]

Легко:

program pro2;
function foo:boolean;
var
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then writeln('=', i);
end;
foo();
end.

[Vanta11a]

function MyFunct(a,i:integer):boolean;
begin
if (a mod i = 0) then MyFunct := true
else MyFunct := false;
end;

[Руслан56]

Можно ли вместо boolean вписать другой тип? какой

[Stilet]

Можно. Любой вписывай если речь о моем варианте.
В варианте Vanta11a нельзя.

[Vanta11a]

Можно и для моего варианта, с учетом соответствующей правки значения, возвращаемого процедурой.

[Stilet]

с учетом соответствующей правки значения, возвращаемого процедурой.

Ну в данном случае это не возможно, иначе бы задачка была решена самим автором )

[Руслан56]

Спасибо большое