Напишите функцию pocket_things(), которая рассортирует бесчисленные вещи Паганеля (вы уже поняли, это, конечно, он!) Функция получает аргумент-строку, а возвращает словарь: ключ – буква в нижнем регистре, значение – список индексов слов строки, в которых эта буква встречается, упорядоченный по убыванию, без повторений. Регистр не учитывать.

Ввод
things = "all kinds of notebooks and wallets"
print(pocket_things(things))

Вывод
{'l': [5, 0], 'a': [5, 4, 0], 'n': [4, 3, 1], 'd': [4, 1], 'i': [1], 'k': [3, 1], 's': [5, 3, 1], 'o': [3, 2], 'f': [2], 'b': [3], 'e': [5, 3], 't': [5, 3], 'w': [5]}

#include <iostream>

int main()
{
int
number,
val,
digits;
bool query[2]{false, false};

std::cout << "Введите число: ";
std::cin >> number;

std::cout << std::endl << "Введите цифру, которую нужно найти в числе: ";
std::cin >> val;

while(number)
{
digits = number % 10;
number /= 10;
if(digits == 3)
query[0] = true;
else if(digits == val)
query[1] = true;
}
if(query[0])
std::cout << "Число 3 входит" << std::endl;
else std::cout << "Число 3 не входит" << std::endl;
if(query[1])
std::cout << "Число " << val << " входит" << std::endl;
else std::cout << "Число " << val << " не входит" << std::endl;
}

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

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);
   
    Writeln(n);
end.