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

vars: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.