Аудиозапись длиной 21 минут закодирована с частотой дискретизации 1 килогерц с разрешением 2048 бит. количество каналов - 2. сжатие данных не производилось. сколько мебибайт занимает эта запись в памяти компьютера? ответ округлите до целых в большую сторону.

примечание.

1 мебибайт - 1024 кибибайта, 1 мегабайт - 1024 байта.

Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.

1.Програма должна уметь вычислить заработок продавца
Исходные данные:
А 
Смысловое значение:
Сума которою получает продавец с продажи 50 газет.
Тип:
Целые.
Исходные данные:
В
Смысловое значение:
Количество проданных газет несчитая первые 50.
Тип:
Целые.
Результат
S
Смысловое значение: 
Заработок продавца 
Тип:
Целые
2.S=50*A+B*1,2*A
3.Дивись малюнок
4.
var a,b,s,i:real; 
begin 
Writeln('A= '); 
readln(a); 
Writeln('B=');
readln(b);
s:=50*a+b*1.2*a; 
writeln('Заработок продавца: ',s); 
end.
5.Запускай программу с разными исходными даннымы и проверяй результати её работы [ это уже сам :) ]