-- swap_2.ada -- Giosia Poma By GPPROGRAM -- -- procedure Swap_2(n1, n2 : in out INTEGER) is temp : INTEGER; begin temp := n1; n1 := n2; n2 := temp; end Swap_2;