Вслове программирование уничтожатся каждый второй символ; затем слово переворачивается, и снова уничтожается каждый второй символ. эти действия повторяются до тех пор, пока не останется один символ. какой это символ?

ответ: "о"

программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о

Function StRevers(St : String) : String;
Begin
  If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
   else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
  If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
  S : String;
Begin
  S:='программирование';
  While Length(S)>1 do S:=StRevers(Del2(S));
  Writeln(S);
end.