/* Somma di un array di interi */

writemsg "quanti numeri desideri sommare? ";
var quanti;
read quanti;
ref numeri;
numeri = new quanti;

var i;
i = 0;
while (i < quanti) {
  writemsg "numero di posizione ";
  write i + 1;
  writemsg "? ";
  read numeri[i];
  i = i + 1;
}
var somma;
somma = 0;
i = 0;
while (i < quanti) {
  somma = somma + numeri[i];
  i = i + 1;
}

writemsg "La somma dei numeri letti e' ";
write somma;
writeln;