Информатик exel нужно получить рисунок ​

1. Средства функционального программирования

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=ReadlnString('>');
  s.Batch(s.Length div 5).Skip(2).Take(1).Aggregate((c1,c2)->c1+c2).Println('')
end.

Тестовое решение
> retmutsike
ut

2. Еще один вариант (на слайсах)

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=ReadlnString('>');
  var m:=s.Length div 5;
  s[2*m+1:3*m+1].Println('')
end.

3. Стандартные средства Паскаля

var
  s:string;
  m:integer;

begin
  Write('>'); Readln(s);
  m:=s.Length div 5;
  Writeln(Copy(s,2*m+1,m))
end.

#include <iostream>
#include <list>

using namespace std;

int main() {
    list<int>mylist;
    //Делаем со списком, что хотим
    mylist.push_back(1);
    mylist.push_back(2);
    mylist.push_back(3);
    mylist.push_back(-4);
    mylist.push_back(5);
    for (auto i : mylist) {
        cout << i << " ";
    }
    cout << "\n";
    //Удаляем последний отрицательный элемент
    auto it = mylist.end();
    while (*it > 0) {
        if (it == mylist.begin()) {
            cout << "Not found.\n";
            return 0;
        }
        it--;
    }
    //Делаем со списком, что хотим
    mylist.erase(it);
    for (auto i : mylist){
        cout << i << " ";
    }
    return 0;
}