program mn;
uses crt;
var s:string;
BEGIN
ClrScr;
Write('S:');readln(s);
if length(s) mod 2 = 0
then delete(s,length(s) div 2,2)
else delete(s,length(s)div 2,1);
writeln(s);
readln;
END.