var s,t,u:string;a:byte;begin repeat readln(s);readln(t);str(s:3,t:3,u);a:=5;while u<>s[a..a+2]+t[a..a+2]do a:=a+4;writeln(a/4:-2:0,u)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