Дана строка из нескольких слов, разделённых одним или несколькими пробелами. напечатать эту строку без избыточных пробелов.

Var
  s : String;
Begin
  {Readln(s);}
  s:='abcd   sf         dsf  rfg   test';
  While Pos('  ',s)>0 do Delete(s,Pos('  ',s),1);
  Writeln(s);
end.