只会Pascal~
program xxx;
var st:string;n:integer;
procedure rewrite(s:string,i:integer);
begin
if i>0 then
begin
write(s[i]);
rewrite(s,i-1);
end;
end;
begin
read(st);
n:=length(st);
rewrite(st,n);
readln
end.