program dao_tu;

uses crt;

var s,st:string;

      i,j:byte;

begin

       clrscr;

       write('Nhap xau: ');  readln(s);

       i:=1;  st:=''; s:=s+' ';

       while i<=length(S) do

              begin

                     if s[i]=' ' then

                            begin

                                   for j:=length(st) downto 1 do write(st[j]);

                                   write(' ');

                                   st:='';

                            end

                     else st:=st+s[i];

                     i:=i+1;

              end;

       readln;

end.

       

var s: string;

       i: byte;

Begin

   Write('nhap xau: '); readln(s);

   For i:=length(s) downto 1 do

        Write(s[i]);

   Readln

End.