procedure Swap(var a, b: integer);vartemp: integer;begintemp := a;a := b;b := temp;end;
varx, y: integer;beginx := 5;y := 10;
writeln('Before swapping: x = ', x, ', y = ', y);
Swap(x, y);
writeln('After swapping: x = ', x, ', y = ', y);end.
procedure Swap(var a, b: integer);
var
temp: integer;
begin
temp := a;
a := b;
b := temp;
end;
var
x, y: integer;
begin
x := 5;
y := 10;
writeln('Before swapping: x = ', x, ', y = ', y);
Swap(x, y);
writeln('After swapping: x = ', x, ', y = ', y);
end.