procedure SWap(var a,b:Integer);begin a := a+b; b := a-b; a := a-b;end;
博客园 © 2004-2026 浙公网安备 33010602011771号 浙ICP备2021040463号-3