Var a,b,c,sred_A:real;
begin
Writeln('Привет,я-alconafft');
Writeln('Введи первое число');
readln(a);
Writeln('Введи второе число');
readln(b);
Writeln('Введи третье число');
readln(c);
sred_A:=a+b+c/3;
writeln('среднее арифметические равно ',sred_A);
end.
N=16
K=2048
16ти символьный авфавит это четыре знака например: 0000
i=4
множим символы на бит шифра.
2048×4=8192
Теперь считаем сколько килобайт весит сообщение
8192:8000=1.024