Expression for appreciation by pooq

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