program mindenmasodikbetu;
var s:string;
    i:byte;
begin
     WriteLn('Kerem a sztringet!');
     ReadLn(s);
     for i:=1 to length(s)  do
         if i mod 2=0 then write(s[i]);
     readln
end.