Swap data dengan metode Procedure

Swapping Data A dengan data B

Contoh Input

5 9

Output:

9 5

PROGRAM varparam;

var

a,b : integer;

procedure Swap(var a,b : integer);

var

temp : integer;

begin

temp := a;

a := b;

b := temp;

end;

begin

readln(a, b);

Swap(a, b);

writeln(a,' ',b);

end.