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

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.