1. Даны две фамилии определить в какой из них больше гласных Е и А.
2. Даны названия трех городов. Вывести на экран сумму количества букв самого длинного и самого короткого названия.
3. Ошибочно введена запись Фамилия Имя отчество. Составьте программу, которая выводит запись в следующем порядке Имя Отчество Фамилия.
4. Определите, в слове предпоследняя и вторая буквы одинаковые или нет.
5. Из слова покровский путем "вырезок", "склеек" и "вставок" его букв получить слова покров, Киров, ворс.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  SeqGen(ReadInteger('n='),i->1/(1+i)).Sum.Println; // №1
  // №2
  var a:=ArrGen(9,i->(i+1)*Sqr(i+1)); a.Println;
  Writeln('Кол-во=',a.Length,', S2=',a.Sum);
  Writeln('S3=',Range(2,100,2).Println.Sum); // №3
  Writeln('S4=',Range(1,99,2).Sum) // №4
end.

Пример
n= 65
4.75927551909038
1 8 27 64 125 216 343 512 729
Кол-во=9, S2=2025
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100
S3=2550
S4=2500

#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
    using namespace std;
    const int n = 10;  //количество элементов массива
    int Arr[n];

    //как-нибудь заполняем массив
    srand(time(0));
    int i;
    for (i = 0; i < n; ++i)
        Arr[i] = rand() % (n * n) + 1;

    //выведем его на экран
    for (i = 0; i < n; ++i)
        cout << Arr[i] << "   ";
    cout << endl;

    int p;
    for (i = 1; i < n; ++i)
    {
        p = i;
        while (p % 2 == 0)
            p /= 2;
        if (p == 1)
            cout << "Arr[" << i << "] = " << Arr[i] << endl;
    }
    cout << endl;
    return 0;
}