program gao7_3；
　var i,j,h,m,n,k：integer；
　　　b：array[1..10]of integer；
　begin
　　readln(n)；
　　　for i:=1 to 10 do
　　　　begin
　　　　m:=n；j:=11；
　　　　while m>0 do
　　　　　begin j:=j-1；b[j]:=m mod 10；m:=m div 10 end；
　　　　for h:=j to 10 do n:=n+b[h]；
　　　　end；
　　 writeln(n)；
　end.
输入1234
输出：1348