黎 黎永欢 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-06 #2 var A,B:Integer; begin Write(A:5,B:-10);//A右对齐 B左对齐, 试一试 end;