Дана
строка, состоящая из слов, разделенных пробелами (одним или несколькими).
Вывести строку, содержащую эти же слова, разделенные одним пробелом

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.