Const
n=36;
s='Юля';
begin
Writeln('Код ',n,' принадлежит символу "',Chr(n),'"');
Writeln('Длина слова "',s,'" в байтах равна ',Length(s));
Writeln('В битах это составляет ',8*Length(s))
end.
Результат
Код 36 принадлежит символу "$"
Длина слова "Юля" в байтах равна 3
В битах это составляет 24