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

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

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

Задать свой вопрос
1 ответ
_var \ s:string; \\amp;10;_begin \\amp;10;_ \ readln(s); \\amp;10;_ \ while \ s[1]=' \ ' \ do \ delete(s,1,1); \\amp;10;_ \ while \ s[length(s)]=' \ ' \ do \ delete(s,length(s),1); \\amp;10;_ \ while \ pos(' \  \ ',s)gt;0 \ do \ delete(s,pos(' \  \ ',s),1); \\amp;10;_ \ writeln(s); \\amp;10;_ \ readln(); \\amp;10;_end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт