contrlc Var
  s: string;
 
begin
  readln(s);
  for var i := 1 to length(s) div 2 do
    write(s[i]);
end.