var s:string="aaaaaaaaabc";i:word;begin repeat writeln("":i,s);s:=copy(s,3)+trim(copy("aaaa bc",298-ord(s[1])*3,3));i:=i+2until i>238end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page