Зі скількох слів складається деяке речення, яке вводять у текстове поле після запуску проекту на виконання​

Const
 n = 20;

var
 pos,neg: integer;
 i,k,x: integer;
 ev,un: integer;
 a,b: array [1..n] of integer;

begin
 for i := 1 to n do
   read(a[i]);
  k := 0;
 pos := 0;
 neg := 0;
  for i := 1 to n do
   begin
      ev := 0;
   un := 0;
      x := a[i];
      if x <> 0 then
     if x > 0 then
       if (x < pos) or (pos = 0) then
         pos := x
       else
     else
       if (x > neg) or (neg = 0) then
         neg := x;
      x := abs(x);
      while x <> 0 do
     begin
     if odd(x) then
       un := un + 1
     else
       ev := ev + 1;
     x := x div 10
     end;
      if un = ev then
     begin
     k := k + 1;
     b[k] := a[i]
     end
      end;

 writeln(pos,' ',neg);
 for i := 1 to k do
   write(b[i],' ')
 end.

Первое:
Для хранения на один пиксель 1 цвет из 65536 цветов достаточно 2^16=65536 - 16 Бит информации или 2 Байта. Изображение имеет 640*350 = 224 000 пикселей. Одно изображение требует для хранения 224 000*2 = 448 000 Байт информации. Следовательно для хранения 2 страниц нужно 448 000*2/1024 = 875 КБайт

Второе:
По формуле 
где D – частота дискретизации (Гц), T – время звучания или записи звука, I - разрядность регистра (разрешение), n - количество каналов.

D = 44100 (Гц)
T = 2*60 = 120 (cек)
I = 16 (бит)
n = 2 - стерео

Бит
 
или 169 344 000/8 = 21 168 000 Байт/1024*1024 = 20,18 Мбайт