Заполните пропуски числами а) 5 кбайт =__байт =; б) =__байт = 12288 бит; в) =__байт = 213 бит; г) =1536 мбайт= =__кбайт; д) 512 кбайт = 2__ байт = 2__ бит.

Это элементарно . Я к ответу прикрепила наглядный перевод .Тут всё легко советую попробовать самостоятельно порешать  .

а) 5 Кб=1024*5 байт=5120 байт=5120*8 бит=40960 бит
б)12288 бит=12288:8 байт=1536 байт= 1536:1024 Кбайт=1.5 КБ
в) 0.0260009КБ= 26.625байт=213бит
или 
в)213 : КБ= 213 : байт=213бит
г) 1572864 Гбайт= 1536 Мбайт=1.5 Кбайт
или
г) *1.5 Гбайт= 1536 Мбайт=1.5 Кбайт
д) 512 КБ= 0.5 байт=0.0625 бит

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
  m:=a.Where(t->t>0).Average
end;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  var m:real;
  avg(a,m);
  Writeln('Среднее значение положительных элементов ',m)
end.

Хорошо видно, что решение с функцией имеет явное преимущество.

Program arr_length;

const
  IN_FILENAME = 'INPUT.txt';
  OUT_FILENAME = 'OUTPUT.txt';

var
  fileIn,fileOut: TextFile;
  s,t: string;

begin
  writeln('Загружаю входные данные...');
  t := '';
  AssignFile(fileIn, IN_FILENAME);
  AssignFile(fileOut, OUT_FILENAME);
    reset(fileIn);
    while not eof(fileIn) do
      begin
        readln(fileIn, s);
        if (s = '0') then
             break
        else
          t := t + s;
      end;
    CloseFile(fileIn);
    rewrite(fileOut);
    writeln(fileOut, Length(t));
    CloseFile(fileOut);
end.