{ File:  lung1.pas }

{ Scopo: uso di cicli indefiniti (cicli while) }

program CalcolaLunghezza;
{ Legge da tastiera una sequenza di interi, terminata da 0.
  Calcola la lunghezza della sequenza (senza lo 0) e la stampa.
  Versione che usa l'istruzione while. }

var
  lunghezza : integer; { lunghezza della sequenza }
  dato      : integer; { dato letto di volta in volta }

begin
  writeln('Inserisci una sequenza di interi, terminata da 0');
  lunghezza := 0;      { all'inizio la lunghezza e' nulla }
  read(dato);          { lettura del primo dato }
  while dato <> 0 do
  begin
    lunghezza:= lunghezza + 1;
    read(dato)
  end;
  writeln('La sequenza (senza lo 0 finale) e'' lunga ', lunghezza)
end. { CalcolaLunghezza }