var i,j:comp;begin repeat write("AA");for j:=-i to-1do write(65-j*5," = ",chr(i+j+65));writeln(65);i:=i+1until i>10end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page