program stringvisszafele;
var s:string;
    i:byte;
begin
     WriteLn('Kerem a sztringet!');
     ReadLn(s);
     for i:=length(s) downto 1  do write(s[i]);
     readln
end.