program SwapXYvax, y: integer;
begix := 5y := 10;
writeln('Before swapping:')writeln('x = ', x)writeln('y = ', y);
x := x + yy := x - yx := x - y;
writeln('After swapping:')writeln('x = ', x)writeln('y = ', y);
end.
program SwapXY
va
x, y: integer;
begi
x := 5
y := 10;
writeln('Before swapping:')
writeln('x = ', x)
writeln('y = ', y);
x := x + y
y := x - y
x := x - y;
writeln('After swapping:')
writeln('x = ', x)
writeln('y = ', y);
end.