Составьте программу вычисления арифметического выражения. В соответствии с условием установите необходимое количество окон TextBox,

тексты заголовков на форме, размеры шрифтов, а также типы переменных и

функции преобразования при вводе и выводе результатов. На форму

поместите элемент управления PictureBox с изображением вычисляемого

арифметического выражения.

Задание 1)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var fam:=ReadlnString('Фамилия:');
  var nam:=ReadlnString('имя:');
  var otch:=ReadlnString('отчество:');
  var fio:=fam+' '+nam+' '+otch;
  Writeln(fio,', длина текста- ',fio.Length)
end.

Тестовое решение
Фамилия: Иванов
имя: Сергей
отчество: Петрович
Иванов Сергей Петрович, длина текста- 22

Задание 3)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var w:='ИНТЕГРАЛ';
  Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]);
  Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]);
  Writeln(w[3]+w[1]+w[5:7]);
  Writeln(w[7]+w[5:3:-1]+w[2:4]);
  Writeln(w[6:]+w[8]+w[1]);
  Writeln(w[1]+w[5:8]);
  Writeln(w[2::-1]+w[3]+w[6:8]+w[3])
end.

Решение:
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ

В C++ работает этот код. Других языков практически не знаю.
#include <iostream>
int main()
{
    using namespace std;
    const int n = 8;
    double Arr[n] = { 122.3, 11.4, -34.2, 17.8, -25.5, -54, 34, -43};

    for (int i = 0; i < n; ++i)
        cout << Arr[i] << "  ";
    cout << endl;

    double max, min;
    for (int i = 0; i < n; ++i)
    {
        if (Arr[i] < 0)
        {
            int inegmax = i;
            for (int j = i; j < n; ++j)
                if (Arr[j] < 0)
                    if (Arr[j] >= Arr[inegmax])
                        inegmax = j;

            max = Arr[inegmax];
            Arr[inegmax] = Arr[i];
            Arr[i] = max;
        }
        else
        {
            int iposmin = i;
            for (int j = i; j < n; ++j)
                if (Arr[j] >= 0)
                    if (Arr[j] < Arr[iposmin])
                        iposmin = j;

            min = Arr[iposmin];
            Arr[iposmin] = Arr[i];
            Arr[i] = min;
        }
    }

    for (int i = 0; i < n; ++i)
        cout << Arr[i] << "  ";
    cout << endl;
    return 0;
}