var a,i:word;begin repeat inc(i);a:=a*10+i;writeln(a:9,' * 9 +',i+1:3,' = ',a*9+i+1)until i=9end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page