vars:string;i:integer;beginreadln(s);{本人认为输入数组更好!}fori:=length(s)downto1do{如果输入数组,就可以直接从后面输出,方便许多!}write(s[i]);writeln;end.