Răspuns:
procedure test(a: integer; var b: integer);
begin
b:=0;
while a<>0 do
begin
b:=b*10 + a mod 10;
a:=a div 10;
end;
end;
Explicație:
apelul se face in programul principal astfel:
test(numar,inversat);
writeln('Numarul ',numar,' inversat este : ',inversat);
