Напишите программу на языке pascal, а то я в инфе вообще не дана строка текста. слова могут быть разделены несколькими пробелами. удалить из строки "лишние" пробелы. "лишние" - это пробелы в начале и конце строки, а также более одного пробела между словами.
![_var \ s:string; \\ _begin \\ _ \ readln(s); \\ _ \ while \ s[1]=' \ ' \ do \ delete(s,1,1); \\ _ \ while \ s[length(s)]=' \ ' \ do \ delete(s,length(s),1); \\ _ \ while \ pos(' \ \ ',s)0 \ do \ delete(s,pos(' \ \ ',s),1); \\ _ \ writeln(s); \\ _ \ readln(); \\ _end.](/tpl/images/0247/8718/56032.png)
