Составить процедуру по обмену местами значения двух чисел

• procedure
• var z:integer;
• begin
• z:=x;
• x:=y;
• y:=z;
• end;
• swap\(var x,y: integer\);