免費Pascal編程語言話題專家進來快，獎勵高。

開始

readln(a，b，c)；

writeln(順序(a)，' '，順序(b)，' '，順序(c))；

writeln(chr(ord(c))，' '，chr(ord(b))，' '，chr(ord(a)))；

readln

結束。