const a='*****';s='apple'+a+a+a+a+a;i:word=0;begin for i:=0to 30*random(3)do writeln(copy(s+s+s,61-i,30))end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page