var a:array[byte]of byte;i,j,k:comp;begin repeat
k:=10-1and i*20;repeat k:=a[j]*i+k div$a;a[j]:=k
mod$a;j:=j+1until-k=a[j];for j:=2-j-ord(i=1)to
0do write(a[-j]);writeln;i:=i+1until i>50end.