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.