PROGRAM CFINDMAX (INPUT,OUTPUT) ;

  VAR M:ARRAY[1..100] OF INTEGER;
      I,N,MAX:INTEGER;

  {$I B:FINDMAX.SRC}

    BEGIN
      READLN (N) ;
      FOR I:=1 TO N DO
        READ (M[I]) ;
      WRITELN ;
      WRITELN ('NUMBER L IS ') ;
      FOR I:=1 TO N DO
        WRITE ('  ',M[I]) ;
      FINDMAX (MAX,M,N) ;
      WRITELN ;
      WRITELN ('MAX IS ',MAX)
    END.