用pascal程序帮我写个程序！快

输入三个字符，然后按输入字符的次序输出这三个字符，再输出每个字符的序号，最后按与输入字符相反的次序输出这三个字符！

仅仅解释一下友情团队的答案

var
a,b,c:char;

begin
readln(a,b,c); {读入三个字符a,b,c}
writeln(a,b,c); {直接输出a,b,c}
writeln(ord(a),' ',ord(b),' ',ord(c)); {ord(a）是用来输出a的编码的，如ord('a')=65}

readln;

end.

var a,b,c:char; begin readln(a,b,c); writeln(a,b,c); writeln(ord(a),' ',ord(b),' ',ord(c)); writeln(c,b,a); readln; end.