Помогите пожалуйста. Напишите программу ** языке Pascal, а то я в инфе вообще не...

Question

Помогите пожалуйста. Напишите программу на языке Pascal, а то я в инфе вообще не рублю(((

Дана строка текста. Слова могут быть разделены несколькими пробелами. Удалить из строки "лишние" пробелы.
"Лишние" - это пробелы в начале и конце строки, а также более одного пробела между словами.

Answer 1

0 \ do \ delete(s,pos(' \ \ ',s),1); \\ _ \ writeln(s); \\ _ \ readln(); \\ _end." alt="_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." align="absmiddle" class="latex-formula">