-- Scambia.ada -- Giosia Poma By GPPROGRAM -- -- PRINCIPALE with Text_IO, Integer_Text_IO; use Text_IO, Integer_Text_IO; procedure Scambia is a : INTEGER := 5; b : INTEGER := 9; procedure Swap(n1, n2 : in out INTEGER) is separate; -- procedura definita nel file separato begin Put(a); Put(b); Swap(a,b); Put(a); Put(b); end Scambia;