{ File:  lung2.pas }

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

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

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 }
  repeat
    read(dato);
    lunghezza := lunghezza + 1;
  until dato = 0;
  writeln('La sequenza (senza lo 0 finale) e'' lunga ', lunghezza-1)
end. { CalcolaLunghezza2 }