Var a:string;
i,n:integer;
begin
write('Введите слово ');
readln(a);
n:=length(a);
writeln('Введите номер буквы ');
readln(i);
delete(a,i,1);
writeln(a);
readln;
<span>end.</span>
К - 1000
L - 1001
M - 1010
N - 1011
KMLN - 1000101010011011(2)=105233(8)
Я считаю, потому что алфавитный подход позволяет измерять информационный объем текста,не связанный с содержанием этого текста