Swap two variables
Pascal Input/Output
via temp variable
Flowchart (ISO 5807)
Source code
procedure Swap(var a, b: integer);
var t: integer;
begin
t := a;
a := b;
b := t;
end;via temp variable
procedure Swap(var a, b: integer);
var t: integer;
begin
t := a;
a := b;
b := t;
end;