Составить программу для подсчёта суммарного количества байт введённого предложения или слова (с предусловием и постусловием).
Var s:string[255]; begin readln(s); writeln(length(s)); end.
эта программа без предусловия и постусловия, но ответ дает правильный
если совсем не то - удалите