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

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