паскаль .вычеркиватели.
Вычеркните из слова Х буквы, стоящие на чётных местах.

var
s:String;
i:Integer;
Begin
 Read(s);
 for i:=1 to length(s) do
  begin
   if (i mod 2=0) then Delete(s,i,1);
  end;
 Writeln(s);
end.