решите кто шарит за это

информационный вес символа,при алфавитном подходе считается,что каждый символ текста имеет определенный информационный вес. информа­ционный вес символа зависит от мощности алфавита.а ка­ким может быть наименьшее число символов в алфавите? оно равно двум. скоро вы узнаете, что такой алфавит ис­пользуется в компьютере.он содержит всего 2 символа, ко­торые обозначаются цифрами «0» и «1».его называют дво­ичным алфавитом. изучая устройство и работу компьютера,узнаете,как с всего двух символов можно пред­ставить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется он 1

program aaa;

const n=50;

var w, c, x, d10, d4, d1: integer;  

begin 

  writeln ('введите вес бандероли');

  readln (w);

  if w < = n

    then c: =10

    else  

        if w mod n = 0

          then c: =10+((w div n)-1)*5

          else c: =10+5+((w div n)-1)*5;

  d10: = c div 10;

  d4: = (c-10*d10) div 4;

  d1: = (c-d10*10-d4*4);

  writeln ('стоимость бандероли: ',c,' драхм');

  writeln;

  writeln ('для оплаты нужно не менее');

  writeln (d10: 10,' монет по 10 драхм');

  writeln (d4: 10,' монет по 4 драхмы');

  writeln (d1: 10,' монет по 1 драхме');

end.

результат работы программы:

введите вес бандероли       100

стоимость бандероли: 15 драхм

для оплаты нужно не менее

          1 монет по 10 драхм

          1 монет по 4 драхмы

          1 монет по 1 драхме