dim a(4)
do
input""n
n=n+0^n
for j=1to 4a(j)=mod(n,100)
n=int(n/100)next
?a(3),a(1),a(4),a(2)loop