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

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.