Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau: '); readln(s);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while s[pos(#32#32,s)]=#32 do delete(s,pos(#32#32,s),1);
s:=s+#32;
for i:=1 to length(s) do if s[i]=#32 then write(s[i-1],' ');
readln
end.
for i:=1 to legnth(s) do