Определите вес одного символа 26-символьного алфавита.
2. Определите мощность алфавита, если вес одного символа
равен 8 бит.
3. Определите объем сообщения (в байтах), состоящего из
130 символов, если вес одного символа 5 бита.
4. Переведите в килобайты:
1. 57344 бит
2. 75776 байт
3. 2 Мб
4. 30 Гб

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

Проблема нет вот код:

Program raketa;

uses graph;

var gd,gm:integer;

begin

detectgraph (gd,gm);

initgraph (gd,gm,'C:\tp7 ');

line (300,60,240,120);

line (240,120,240,360);

line (360,120,360,360);

line (240,360,360,360);

line (300,60,360,120);

line (240,210,210,240);

line (210,240,240,240);

line (360,210,390,240);

line (390,240,360,240);

circle (300,150,15);

circle (300,210,15);

circle (300,270,15);

Bar (270,300,240,360);

line (240,360,180,450);

line (180,450,420,450);

line (420,450,360,360);

line (330,450,330,370);

line (300,450,300,365);

line (270,450,270,370);

line (240,330,180,330);

line (180,330,90,450);

line (172,330,80,445);

line (300,60,300,30);

readln

end.

Объяснение:

результат

Только такая другой нет