1package Vect15 is 2 3 type Sarray is array (1 .. 5) of Long_Float; 4 for Sarray'Alignment use 16; 5 6 procedure Add (X, Y : Sarray; R : out Sarray); 7 8end Vect15; 9