Определите значение переменной Sum после выполнения фрагмента
программы:
i:=0;
Sum:=0;
while i<4 do
begin
i:=i+1;
Sum:= Sum+3*i;
end;

ответ: 30

Пример работы:

компьютер телфон и иже с ними

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

размер содержащейся в тексте информации находим по формуле:  

k - кол-во символов в тексте 

амазонка 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

омега:  

один символ несет 7 битов

байт в письме омеги