var j:word;s,t,u,v:string=^`;begin readln(t);repeat inc(j);str(j,u);readln(s);if pos(v+u+v,v+t+v)>0then s:=s+^j+s;writeln(s)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page