Даны x, y, z . Вычислить a, b, если (написать программу Паскаль)

Носи́тель информа́ции (информацио́нный носи́тель) — любой материальный объект или среда, используемый человеком достаточно длительное время сохранять (нести) в своей структуре занесённую на него информацию, без использования дополнительных устройств (например, источника энергии).

Или другими словами чтоб тебе понятнее было
Носитель информации это например оптические (CD-ROM, DVD-ROM, Blu-ray Disc);
полупроводниковые (флеш-память, SSD-диски);
магнитные (магнитные ленты, дискеты, жесткие диски). И тд
Туда можно записать информацию и они ее там содержат
И это и называется носитель информации
Жесткий диск на него что то можно записать он носит информацию

1.
#include <iostream>
using namespace std;
void main()
{
    //задаём русский язык для консоли
    setlocale(LC_ALL, "Russian");
    long sum = 0;
    int a;
    cout << "Введите a" << endl;
    cin >> a;
    if (a > 500)
    {
        cout << "а > 500" << endl;
    }
    else
    {
        sum = (500 * 501 / 2) - ((a - 1) * a ) / 2;
        cout << sum;
    }
}
2.
#include <iostream>
using namespace std;
void main()
{
    //задаём русский язык для консоли
    setlocale(LC_ALL, "Russian");
    double average = (1 + 1000) / 2.;
    cout << "Среднее арифметические чисел от 1 до 1000" << average << endl;
}
3
#include <iostream>
using namespace std;
void main()
{
    //задаём русский язык для консоли
    setlocale(LC_ALL, "Russian");
    int a = 0, b = 0;
    cout << "Введите границы диапазона" << endl;
    cin >> a >> b;
    cout << "Все числа:" << endl;
    if (a <= b)
    {
        for (int i = a; i <= b; i++)
        {
            cout << i << endl;
        }
    }
    else
    {
        for (int i = b; i < a; i++)
        {
            cout << i << endl;
        }
    }
    cout << "Чётные числа:" << endl;
    if (a <= b)
    {
        for (int i = a; i <= b; i++)
        {
            if (i % 2 == 0)
            {
                cout << i << endl;
            }
        }
    }
    else
    {
        for (int i = b; i < a; i++)
        {
            if (i % 2 == 0)
            {
                cout << i << endl;
            }
        }
    }
    cout << "Нечётные числа:" << endl;
    if (a <= b)
    {
        for (int i = a; i <= b; i++)
        {
            if (i % 2 != 0)
            {
                cout << i << endl;
            }
        }
    }
    else
    {
        for (int i = b; i < a; i++)
        {
            if (i % 2 != 0)
            {
                cout << i << endl;
            }
        }
    }
    cout << "Числа, кратные 7:" << endl;
    if (a <= b)
    {
        for (int i = a; i <= b; i++)
        {
            if (i % 7 == 0)
            {
                cout << i << endl;
            }
        }
    }
    else
    {
        for (int i = b; i < a; i++)
        {
            if (i % 7 == 0)
            {
                cout << i << endl;
            }
        }
    }
}
4. 
#include <iostream>
using namespace std;
void main()
{
    //задаём русский язык для консоли
    setlocale(LC_ALL, "Russian");
    int a = 0, sum = 0;
    cout << "Введите числа" << endl;
    while (true)
    {
        cin >> a;
        if (a == 0)
        {
            break;
        }
        sum += a;
    }
    cout << "Сумма =" << sum << endl;
}