{ File: massimo.pas }

{ Scopo: ciclo for con limiti fissi }

program Massimo10Interi;
{ Legge 10 numeri interi da tastiera e ne stampa il massimo. }
var
  numero  : integer;  { numero letto di volta in volta }
  massimo : integer;  { massimo parziale degli interi letti fino ad un certo
                        punto }
  i       : integer;  { indice del ciclo }

begin
  writeln('Immettere 10 numeri interi!');
  massimo := -MAXINT;   { prima di leggere il primo numero il massimo parziale
                          e` il piu` piccolo intero possibile;
                          dopo la lettura del primo numero verra` aggiornato }
  for i := 1 to 10 do
  begin
    read(numero);
    if numero > massimo then
      massimo := numero        { non c'e` il ramo else }
  end;
  writeln('Massimo : ', massimo)
end. { Massimo10Interi }