Ответ:
Есть программа FCEditor, рисует блоксхемы по коду в Pascal
Объяснение:
В конце программы пропущен end;
И еще не описан массив Dt
var bn,sn,b1,q,n:real;
begin
write('b1=');
read(b1);
write('q=');
read(q);
write('n=');
read(n);
bn:=b1*power(q,n-1);
sn:=(b1*(power(q,n)-1))/(q-1);
writeln('Bn=',bn);
writeln('Sn=',sn);
end.
Аалфавитный подход позволяет вычислить количество информации, содержащейся в тексте, сложив информационные объёмы каждого символа, при этом содержание текста не учитывается.