Program PRINTMAIOR;
 VAR
  I:INTEGER;
  N,MAX:REAL;
 Begin
   I:=1;
   WRITELN('DIGITE UM VALOR');
   READLN(N);
   MAX:=N;
   WHILE (I<=9)DO
     BEGIN
       WRITELN('DIGITE UM VALOR');
       READLN(N);
        IF (N>MAX) THEN
          MAX:=N;
       I:=I+1;
     END;
    WRITELN('O MAIOR É  ',MAX);
 End.