uses crt;
var i,n:longint; s:string; a:array[1..255]of string;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
s:=' '+s+' ';
for i:=1 to length(s)-1 Do
if (s[i]=' ')and(s[i+1]<>' ') then inc(n) else
if s[i]<>' ' then a[n]:=a[n]+s[i];
for i:=n downto 1 do write(a[i],' ');
readln
end.