Var s,s1:string; p:byte; begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p]; writeln(s1); end.
че за бред