Елочная игрушка сделана из бусин разного цвета

Вот :)

НИЧЕГО
А если серьёзно, то как мы ее тебе сделаем в приложении? ")

Через модемы.Модемы обеспечивают передачу информации со скоростью до 56Кбит/с. Плюсы : компактный,практичный,беспроводное соеденение. Минусы : маленькая скорость.
Wi-Fi.Обычно схема Wi-Fi сети содержит не менее одной точки доступа и не менее одного клиента.Скорость до 55Мбит/с.Плюсы: беспроводное подключение.Минусы: невыскоая скорость передачи
Современные ADSL-технологии позволяют использовать обычные телефонные каналы для высокоскоростного (1 Мбит/с и выше) подключения к интернету.
Провайдеры.Такое соединение может производится как по оптоволоконным линиям, так и по коммутируемым телефонным каналам.Плюс: высокая скорость передачи. Минус: подключение доступно только из одной точки.

Пример, ненужное уберешь

const
    handsfree = true;

var
    a: array[1..100, 1..100] of real;
    max, min: real;
    sum, product: real;
    i, j, m, n, k: integer;

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
        m := random(20) + 2;
    end
    else begin
        write('n, m =');
        readln(n, m);
    end;
    
    writeln('Данные матрицы:');
    for i := 1 to m do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;
    
    {минимумы и максимумы}
    max := a[1, 1];
    min := a[1, 1];
    for i := 1 to m do
        for j := 1 to n do
        begin
            if max < a[i, j] then max := a[i, j];
            if min > a[i, j] then min := a[i, j];
        end;
    writeln('max = ', max);
    writeln('min = ', min);
    
    {сумма, произведение, пр. агригаты}
    sum := 0;
    product := 1;
    for i := 1 to m do
        for j := 1 to n do
            if a[i, j] <> 0 then {если нужен фильтр}
            begin
                sum := sum + a[i, j];
                product := product * a[i, j];
                k := k + 1;
            end;
    writeln('sum = ', sum);
    writeln('product = ', product);
    writeln('average = ', sum / (n * m));
    writeln('average (selected) = ', sum / k);
end.