do
input""x$
if""=x$end
n=val(x$)
d=0
for a=1to 11d=mod(n,a)*10^a/10+d
n=int(n/a)next
?d using"%.0f"loop