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

var  i:integer;  s,t:string;  f:boolean;beginwriteln ('Введите строку');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.