{ File: contamag.pas }

{ scopo: cicli indefiniti }

program ContaMaggiore;
{ Legge da tastiera una sequenza di 10 numeri interi e
  calcola quante volte un numero e' maggiore del precedente.
}

const
  N = 10;
var
  cont,                { contatore dei numeri maggiori del precedente }
  numero,              { numero letto di volta in volta }
  prec,                { numero letto precedentemente }
  i      : integer;    { contatore del numero di iterazioni }

begin
  writeln('Inserire 10 numeri interi');
  readln(prec);
  cont := 0;
  for i := 2 to N do
  begin
    readln(numero);
    if numero > prec then
      cont := cont + 1;
    prec := numero
  end;
  writeln('contatore = ', cont)
end. { ContaMaggiore }