Сколько бит информации содержит сообщение объемом 3 кбайт? в ответе укажите одно число. надо, прошу

program juliavanina; uses crt; var  r,min,max: real;   k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   min: =0;   max: =0;   k: =0;   r: =1;   writeln('введите ненулевое число, не превышающее 30000 по модулю');   writeln('(или введите 0 для конца последовательности) ');   while (r< > 0) and (k< 1000) do      begin          write('ввод: ');             readln (r);           if abs(r)< 30000 then                  begin                      if min> r then min: =r;                       if max< r then max: =r;                       k: =k+1;                     end              else                  begin                      writeln ('вы ввели слишком большое по модулю число');                       writeln ('это число не будет учтено');                   end;       end;   writeln();   writeln('всего введено ',k-1,' чисел');   writeln('разность min и max составляет ',max-min); end.

проверено - работает на паскаль авс

заштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива)

program sandglass; uses crt; const n=19; var mas: array[1..n,1..n] of integer;   i,j,a,yes: integer; begin  randomize;   for i: =1 to n do      for j: =1 to n do          mas[i,j]: =random(101)-50;   for i: =1 to n do      begin          for j: =1 to n do              write (mas[i,j]: 4);           writeln;       end;   yes: =0;   write ('please input a=');   read(a);   writeln;   for i: =1 to n do      for j: =1 to n do          begin              if (i< =j) and (i+j< =n+1) and (mas[i,j]=a) or (i> =j) and (i+j> =n+1) and (mas[i,j]=a) then                  begin                      yes: =1;                   end;           end;   if yes< > 0 then          write ('yes! ')      else          write ('no! '); end.