pascal倒序输出

program Project6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a,b,c,d:integer;


begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('please input456');
  a:=456 div 100;
  b:=456 mod 100;
  c:=b div 10;
  d:=b mod 10;
  writeln(d*100+c*10+a);
  readln;
  end.