procedure stampa(in:head,n)
begin
     var array of integer:a
     var integer:n,i
     for i:=1 to n do
         print(a[i])
     endfor
end stampa