Напишите программу для этого примера на яз Pascal ABC

Если СС системы счисления, то:

Двоичная:

126 = 1111110

Переводим целую часть 12610 в 2-ую систему последовательным делением на 2:

126/2 = 63, остаток: 0

63/2 = 31, остаток: 1

31/2 = 15, остаток: 1

15/2 = 7, остаток: 1

7/2 = 3, остаток: 1

3/2 = 1, остаток: 1

1/2 = 0, остаток: 1

126 = 1111110

Обратно:

Переводим 1111110 в десятичную систему:

1111110 = 1·2⁶+1·2⁵+1·2⁴+1·2³+1·2²+1·2¹+0·1 = 126

Восьмеричная:

126 = 176

Переводим целую часть 126 в 8-ую систему последовательным делением на 8:

126/8 = 15, остаток: 6

15/8 = 1, остаток: 7

1/8 = 0, остаток: 1

126 = 176

Обратно:

Переводим 1768 в десятичную систему:

176 = 1·8²+7·8¹+6·1 = 126

Шестнадцатиричная:

126 = 7E

Переводим целую часть 126 в 16-ую систему последовательным делением на 16:

126/16 = 7, остаток: 14, 14 = E

7/16 = 0, остаток: 7

126 = 7E

Обратно:

Переводим 7E в десятичную систему:

7E = 7·16¹+14·1 = 126

Как-то так)

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.