[Lynx]

Оффтоп

ладно, тогда так)
xchg eax,ebx

про сложение вычитание знаю, но так лучше по этому:

var x,y:integer;
begin
x:=30000;
y:=5000;//ДАНО
                     //меняю
x:=x+y;         
y:=x-y;
x:=x-y;

Оно работать не будет, т.к в встроке x:=x+y будет переполнение.