Const Fi='DULIEU.TXT';
Fo='KETQUA.OUT';
Var f,g: text;
St: String;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,St);
While St[1]=#32 do Delete(St,1,1);
While St[length(St)]=#32 do Delete(St,length(St),1);
While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
Write(g,St);
Close(f);
Close(g);
End.