Как связаны между собой единицы измерения информации?

1байт = 8 бит 1 килобайт = 1024 байт 1 мегабайт = 1024 килобайт и т.д

Начало         ↓жили-были дед и баба        ↓  и была у них курочка ряба         ↓  снесла курочка яичко не простое а золотое                                              ↓                                                                                                    дед бил-бил не разбил                                            ↓                                                                  |                                ↓ баба била-била не разбила                          |              яичко упало и                                                                            |                    разбилось        ↓                                                                  |                                ↓ мышка бежала хвостиком махнула              |                дед плачет баба п                                                                            |                      плачет                  ||                                ↓                                                                                            а курочка ряба                                                                                                  кудахчет                                                                                                            ↓                                                                                                    конец

Var   a: array [1..20] of integer;   n,i,sum,v: integer; begin     writeln('введите 20 целых  чисел');     sum: =0;     n: =0;     for i: =1 to 20 do begin       readln(v);       a[i]: =v;       if v mod 3=0 then         begin             inc(sum,v);             inc(n);         end;           end;   if n=0 then     writeln('чисел кратных трём нет')   else     writeln('среднее арифметическое',sum div n); end.