[~ SaM ~]

procedure swap(a,b:integer);
begin
a:=a+b;
b:=a-b;
a:=a-b
end;