program sommatore;
         // autore :  Mimmo Corrado
         // versione e data: 1 del 10-04-2011
         // descrizione :  Massimo fra n numeri

 uses crt;

 var
    numero, max, contatore: integer;

 begin
  contatore:=1;
  write ('Inserisci un numero : ');
  readln (numero);

  while (contatore<5) do
      begin
      contatore:=contatore+1;
      write ('Inserisci un numero : ');
      readln (numero);
      if Max < numero
         then Max:=numero
      end;

  writeln ('Il max e'' ', Max);
  readln;
 end.