Question

Scrieţi programul care calculează numărul divizorilor unui număr întreg X, utilizând un subprogram procedură.

Eu am subprogramul cu functie si imi trebuie intreg programul cu procedura!
Va rog mult ajutor.Miine am teza!!!!

Se consideră funcţia care calculează numărul divizorilor unui număr:
Function Test(a: integer):integer;
var i, b: integer
Begin
b:=0;
for i:=1 to a do
if a mod i=0 then inc(b);
Test:=b
End;

Answer 1

EDIT:
Program info;
procedure Nrdiv(x:integer; var nr:integer);
var i:integer;
begin
nr:=0;
for i:=1 to x do
if x mod i=0 then nr:=nr+1;
end;
var x:integer;
begin
write('x='); readln(x);
Nrdiv(x,nr);
write('numarul divizorilor este:',nr);
readln;
end.