ОБЪЯСНИТЕ, ЧТО ЗДЕСЬ ПРОИСХОДИТ? BEGIN //начало программы ClrScr; //очистка экрана Write('Введите текст '); //вывод строки на экран ReadLn(S); //считывание текста с клавиатуры I:=1; //переменная i=1 While(I<=Length(s)) DO Begin IF Copy(S,I,2)=' ' THEN Begin I:=I-1; End; I:=I+1; End; Write(S); END.

Здравствуй! Все в перемешку и нет обьявление переменных

Объяснение:

После того как не было ошибок консольное приложение запустилось

После выполнение очистки консоли выводится подсказка для пользователя, по подсказке вводим текст

После ввода текста, переменеая присваевает его

Происходит сравнение больше или равно по циклу если истинно true или ложь falce(может быть не больше и не равно !＝) в этом ложь

Дальше у тебя должно быть под каждым begin end; у каждого начала свой конец

Таже продолжается проверка условие begin и end;

Ранее переменная s по введенным данным была присвоена цифре продолжается проверка условий true и folse по выражении ранее (I<=Length(s)) продолжается проверка условие

Еще раз выводит после сравнение значение на переменную(не сама она, а значение ее)после подсказки и завешается работа программы

end.