<span>В СЛОВЕ МЕГАБАЙТ 64 бита, т. к. каждая буква - 1 байт, а в каждом байте 8 бит</span>
Var
s,g:string;
sum:integer;
begin
g:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
<span>//ABC Pascal
</span>
I = 8 бит, k = 57(без учета точки,но с учетом пробельных символов);
I = i*k;
I= 8 *57= 456 бит
ответ 456