如何用pascal制作一个程序：输入一个3位数，输出的三位数的个位与原本的百位倒一下，如输入321，输出123

var a,b,c,n:integer;
begin
readln(n);
a:=n div 100;n:=n mod 100;
b:=n div 10;n:=n mod 10;
c:=n;
writeln(c,b,a);
readln;
end.
保存一个空白的,然后关掉,把保存的文件用记事本打开,直接复制.begin到end之间每行空两格.给我最佳

if xxx=123 then
showmessage('321');

哈哈。开玩笑的！！

用这个：

procedure TForm1.Button1Click(Sender: TObject);

var temp,b,s: string;
i: integer;

begin
s := '123';
temp:='';
for i := 1 to length(s) do
begin
b:=Trim(copy(s,length(s)-i+1,1));
temp:=temp+b;
end;
edit1.text:=temp;
end;