написать программу на Паскале для решения данной задачи или хотя бы подскажите алгоритм решения.
Дано три натуральных числа, не превышающих 32767. Определить, сколько из них имеют одинаковое количество цифр.

а)

9

5

3

б)

5 + 32

5 * 4 = 20

Объяснение:

Writeln () и write () - операторы вывода в Паскале, т.е. служат для вывода на экран каких-либо данных.

Если нужно, чтобы каждый вывод начиналась с новой строки, то надо использовать writeln (), если нет - то write ().

Выводимый текст заключается в одиночные кавычки и выводится без изменений (Write ('5 + 3') → Вывод: 5 + 3).

Для вывода значения переменной или числа - указывается просто имя переменной или число.

Разделителем текста, переменной и т.д. служит запятая.

Если есть действия с числами или переменными ( 4*5 или a*b) вычисляется результат.

#include <iostream>
#include <algorithm>
using namespace std;

int main()
{
    long long int n{ 0 }, z{ 0 };
    while (cin >> n) {
        size_t ans[120];
        for (; n != 0; n = n / 10) {
            int tmp = n % 10;
            if (n / 10 != 0 || (n / 10 == 0 && n != 9)) { 
                tmp = min(tmp, 9 - tmp); 
            }
            ans[z++] = tmp;
        }
        for (int i = z - 1; i >= 0; i--) {
            cout << ans[i];
        }
        cout << endl;
    }
    return 0;
}