free PASCAL作业题（高手快进,明天要交！！！！）！！！！！！！

program shuchu;
var
n,a,b,s:integer;
begin
readln(n);
a:=n mod 10; (个位)
n:=n div 10;
b:=n mod 10;（十位）
n:=n div 10;（百位）
s:=a*100+b*10+n;
writeln(s);
end.
这个从题目意思出发，比较简明一些的程序，不需要用到字符串，希望能帮到楼主。

program aaa;
var s:string; t:char;
begin
readln(s);
t:=s[1]; s[1]:=s[3]; s[3]:=t;
writeln(s);
end.

var
n,a,b,c:integer;
begin
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
c:=n div 10;
write(c*100+b*10+c);
end.

var s:string;
tmp:char;
begin
readln(s);
tmp:=s[1];
s[1]:=s[3];
s[3]:=tmp;
writeln(s);
end.