Нужно написать Программу «чат»
Программа клиента, Программа сервера.
С интерфейсом (Элементы ввода и вывода текста использование трех кнопок, 4 label, бегунки, изображения, radio button^ check button, меню) В меню предусмотреть инструкцию пользователя
Python

===== PascalABC.NET =====

procedure MyCompare<T>(P, Q: HashSet<T>);

begin

 if P.SetEquals(Q) then

   Print('Множества эквивалентны')

 else if P.IsSubsetOf(Q) then

   Print('Первое множенство является подмножеством второго')

 else if P.IsSupersetOf(Q) then

   Print('Второе множенство является подмножеством первого')

 else

   Print('Проверка множеств завершена')

end;

begin

 var n := ReadInteger('Мощность первого множества:');

 var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 n := ReadInteger('Мощность второго множества:');

 var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 MyCompare(P, Q)

end.

Возможный вариант в C++
#include <iostream>
int main()
{
    using namespace std;
    int N;
    cout << "Enter N: ";
    cin >> N;
    int num;
    int max = 1;
    int i;
    for (i = 0; i < N; ++i)
    {
        cout << "Enter #" << i + 1 << " number: ";
        cin >> num;
        if ((num - 9) % 10 != 0 && num % 3 == 0)
        {
            max = num;
            break;
        }
    }
    for (int j = i + 1; j < N; ++j)
    {
        cout << "Enter #" << j + 1 << " number: ";
        cin >> num;
        if ((num - 9) % 10 != 0 && num % 3 == 0)
            if (num > max)
                max = num;
    }
    if (max != 1)
        cout << "Max number div by 3 and don't end 9: " << max << endl;
    else
        cout << "No numbers div by 3 and don't end 9" << endl;
    return 0;
}