Var i:integer; s,t:string; f:boolean; begin writeln ('Введите строку'); readln(s); f:=false; for i:=1 to length(s) do begin if (f=false) or (s[i]<>' ') then begin t:=t+s[i]; if s[i]=' ' then f:=true else f:=false; end; end; writeln(t); end.