integer a(1700);do1;a=0;k=40;read*,n;do2 n=1,n;do2 i=1,1700;k=a(i)*4+k/10;2 a(i)=mod(k,10);1 print'(i0)',sum(a);end