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

Ответ: "о"программированиеп о р м и о а ииаоимропи о м о омоио о ооо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.