BAB 1D : Fungsi dan Prosedur - Var Parameter

Solusi BAB 1D : Fungsi dan Prosedur - Var Parameter

PROGRAM varparameter;

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.