Считая, что каждый символ кодируется 1 байтом, определите информационный объем в байтах фразы: Певец-Давид быд ростом мал, но повалил же Голиафа!
Var s: string; k: integer; Begin Write ('Введите Ваше предложение: '); read(s); k := length(s); Write ('Размер: ',k); End.