{ File: massimor.pas }

{ Scopo: ciclo for con limiti fissi }

program MassimoNumeriReali;
{ Legge N numeri reali da tastiera e ne stampa il massimo. }
const
  N = 10;

var
  numero  : real;     { numero letto di volta in volta }
  massimo : real;     { massimo parziale dei reali letti fino ad un certo
                        punto }
  i       : integer;  { indice del ciclo }

begin
  writeln('Immettere 10 numeri reali!');
  read(numero);
  massimo := numero;         { il massimo parziale e` dato dal primo numero }
  for i := 1 to N-1 do
  begin
    read(numero);
    if numero > massimo then
      massimo := numero      { non c'e` il ramo else }
  end;
  writeln('Massimo : ', massimo)
end. { MassimoNumeriReali }