Решение в прилагаемом файле.
program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.
1)256*16=4096 изначально бит весил наш документ
2)4096-3072=1024 столько бит удалили из документа
3)1024/16=64 делим количество бит на 16 и получаем кол-во символов которые удалили, оно равно 64, с нашего документа удалили 64 символа
program slovo;
var s: string; i: integer;
Begin
writeln('введите слово'); readln(s);
for i:=length(s) downto 1do begin
write(s[i]);
end;
End.