自学pascal中，近日遇到一简单的例题。

你好！glacebai 的方法应该是正确的。
不过我觉得我的方法更容易理解。
program shu;
var a:integer;
begin
assign(input,'shu.in');
assign(output,'shu.out');
reset(input);
rewrite(output);
read(a);
while a<>0 do
begin
write(a mod 10);
a:=a div 10;
end;
close(input);
close(Output);
end.
或者用字符串
program zf;
var a:string;i:integer;
begin
assign(input,'zf.in');
assign(output,'zf.out');
reset(input);
rewrite(output);
read(a);
for i:=4 downto 1 do write(a[i]);
close(input);
close(output);
end.
你应该学过字符串吧，如果没有，我可以给你推荐一个pascal教程网址
http://www.zjtg.cn/itjs/pascal/
http://www.zsqz.com/jsbase/pascal/index.html字符窜支持整体读