{ File: somma.pas }

{ Scopo: ciclo for con limiti fissi }

program Somma100Numeri;
{ Legge 100 numeri e ne stampa la somma. }

var
  numero : integer;  { numero letto di volta in volta }
  somma  : integer;  { somma parziale degli interi letti fino ad un certo
                       punto }
  i      : integer;  { indice del ciclo }

begin
  writeln('Immettere 100 numeri interi!');
  somma := 0;             { prima di leggere il primo numero la somma parziale
                            e` 0 }
  for i := 1 to 100 do
  begin
    read(numero);
    somma := somma + numero
  end;
  writeln('Somma : ', somma)
end. { Somma100Numeri }