Дан алфавит с N символоми.
Для начала, нужно определить мощность алфавита (I). Это количество бит информации на 1 символ этого алфавита. Суть в том, чтобы каждой букве алфавита (включая плобельные символы и знаки препинания) поставить в соответствие уникальное двоичное число, которое будет кодом этой буквы. Это можно сделать по формуле (скобки в формуле - округление к большему)
Если затем перемножить количество символов в сообщении (М) на вес одного символа (I), получим вес сообщения.
Зло проиграет всегда ведь наш девиз добрата!!
Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.