ОБЪЯСНИТЕ, ЧТО ЗДЕСЬ ПРОИСХОДИТ? 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.