用free pascal编写程序把一个三位整数反转，例如129反转成921

program exe2_6;
var
a,b,c,d,e:integer;
begin
readln(d);
a:=d div 100;
c:=d mod 10;
b:=d div 10-10*a;
e:=c*100+b*10+a;
writeln(e);
end.

利用字符串第一位和第三位交换的方法可以达到目的
Program ZAX;
var
st:string;
k:char;
begin
Readln(st);
k:=st[1];
st[1]:=st[3];
st[3]:=k;
Writeln(st);
End.

var
a:longint;
begin
readln(a);
writeln(a mod 10,a div 10-a div 100*10,a div 100);
readln
end.