Program pag83_44;
uses crt;
var cuv,ras:string;
    i,j,k,c:byte;
begin
clrscr;
Writeln('Introdu un text!');ReadLn(Cuv);
i:=1;
ras:=cuv;
c:=length(cuv);
repeat
 While(i<c)and(cuv[i]=' ')do inc(i);
 j:=i;
 while(j<=c)and(cuv[j]<>' ')do inc(j);
 for k:=i to j-1 do ras[i+j-1-k]:=cuv[k];
 i:=j
until j>=c;
writeln(ras);
readln;
end.