function trimblank(s:string):string;
var
i,j:integer;
begin
repeat
i:=pos(' ',s);
j:=length(s);
if i>0 then s:=copy(s,1,i-1)+copy(s,i+1,j-i);
until i=0;
trimblank:=s;
end;
begin
writeln(trimblank(' qwe rt y ui '));
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024