pascal 问题，

方法1.可用字符串
var s:string;
begin
readln(s);
writeln(s[3],s[2],s[1]);
end.

方法2.数学方法
var
n,a,b,c,ans:integer;
begin
readln(n); {——读入n}
a:=n div 100;
b:=(n div 10)mod 10;
c:=n mod 10;
ans:=c*100+b*10+a;
writeln(ans); {——输出答案}
end.

用字符串很简单：
var s:string;
i:integer;
begin
readln(s);//不管几位数都可以
for i:=length(s) downto 1 do write(s[i]);
end.

var a,i:integer;
b:string;
begin
read(a);
b:=str(a);
for i:=1 to 3 do
write(b[4-i]);
end.

楼上的是数学算法
有个更简单的,用字符串
var s:string;
begin
readln(s);
writeln(s[3],s[2],s[1]);
end.