Напишите процедуру с двумя целочисленными параметрами, которая бы меняла местами их значения. Проверьте ее работу. в Paskal
A:=a+b; b:=a-b; a:=a-b;
осталось только в процедуру оформить ))