все во вложении (сначало само задание потом ответ)
1)256*16=4096 изначально бит весил наш документ
2)4096-3072=1024 столько бит удалили из документа
3)1024/16=64 делим количество бит на 16 и получаем кол-во символов которые удалили, оно равно 64, с нашего документа удалили 64 символа
var
s: string;
n, k: integer;
begin
writeln('Введи слово');
readln(s);
n := length(s);
writeln('Средний символ - ', s[n div 2 + 1]);
end.
Program CircleS;
Uses Crt;
const pi=3.14;
var S,r:real;
begin
clrscr;
write('Введите радиус круга:');
readln(r);
S:=pi*(r*r);
writeln('Площадь круга:',S);
readkey;
end.