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