var s:string;i:byte;begin while not eof do begin readln(s);for i:=2to length(s)do if s[i]<>s[i-1]then write(s[i-1]);writeln(s[i])end;end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page