procedue stampa(a,n)
begin
var integer: i,n
var array of integer: a
for i:=0 to n do
  print(a[i])
  endfor
end stampa