[[3@zzzzz]

написал процедуру на delphi:

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

а он ее не выполняет. Почему?

[~ SaM ~]

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

[Shalinskij]

procedure swap(var a,b:integer);
begin
a:=a+b;
b:=a-b;
a:=a-b;
{какой-то странный алгоритм }
end;

Мож так как то