var

st:string;

procedure xoatrangthua (var st:string);

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);

end;

write('nhapxaust:');

readln(st);

xoatrangthua(st);

write('xausaukhixoacackitutrangthua:',st);

readln;

end.