var i,j,k,n:word;begin repeat k:=i;n:=0;for j:=1to 6do begin k:=k div j;n:=n+k mod(j+1)*10pow j end;writeln(n);i:=i+1until i>1000end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page