Поменять данное естественное число на число, которое выходит из начального записью

uses crt;
var
nbsp;nbsp;nbsp;a,b:integer;
nbsp;
function asd(x,i:integer) :integer;
begin
nbsp;nbsp;nbsp;if x=0 then asd:=-b
nbsp;nbsp;nbsp;else begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if x div 10 lt;gt;0 then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;b:=b +i*10+ x mod 10;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;asd:=(i*10+ x mod 10) + asd(x div 10,i*10+ x mod 10 )
nbsp;nbsp;nbsp;end;
end;
nbsp;
begin
nbsp;nbsp;nbsp;clrscr;
nbsp;nbsp;nbsp;b:=0;
nbsp;nbsp;nbsp;readln(a);
nbsp;nbsp;nbsp;writeln(asd(a,0));
nbsp;nbsp;nbsp;readkey
end.