Составьте программу для вычисления величины работы, совершенной при равномерном подъёме груза массой M кг на высоту H метров. Ускорение свободного падения описать как константу G = 9, 81.​

#include <bits/stdc++.h>

using namespace std;

int main()
{
    vector<int> a;
    int cnt = 0;
    double average = 0;
    while (true)
    {
        int tmp;
        cin >> tmp;
        if (!tmp)
            break;
        cnt++;
        a.push_back(tmp);
        average += tmp;
    }
    average /= cnt;
    int ans = 0;
    vector<int> b;
    for (int i = 0; i < cnt; i++)
        if (a[i] > average)
            ans++, b.push_back(a[i]);
    cout << ans << endl;
    for (int i = 0; i < b.size(); ++i)
        cout << b[i] << ' ';
}

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст:');
  var p:=Pos('.',s); // позиция точки
  if p>0 then s:=s[:p]; // отбросим до конца все, начиная с точки
  Writeln('Найдено слов: ',s.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]+\b').Count)
end.

Примеры
Введите текст: TesT И тольКо Тест Сегодня15 января язык Pascal версия 3-3.
Найдено слов: 2

Введите текст: И сидит, сидит зловещий Ворон черный Ворон вещий.
Найдено слов: 2

Введите текст: Почему же мы с тобой   Пишем с буквы прописной: Таня, Ваня, Мила, Нина, Коля, Петя и Ирина.
Найдено слов: 9