Program xxx; uses crt; var st:string i,,j:integer; BEGIN readln(st); j:=length(st); for i:=j-1 downto 0 do write(st); END.