FORTRAN RUN 000SAMPL FORTRAN COMPILATION VER 2 MOD 2 $NO MULTIPLY DIVIDE C SAMPLE PROGRAM TO TEST SYSTEM C 003SAMPL C PROGRAM FOR FINDING THE LARGEST VALUE 004SAMPL C ATTAINED BY A SET OF NUMBERS 005SAMPL 001 DIMENSION A%12) 006SAMPL 002 READ %1,1)N,%A%I),I#1,N) 007SAMPL 003 1 FORMAT %I3/%12F6.2)) 008SAMPL 004 BIGA#A%1) 009SAMPL 005 DO 20 I#2,N 010SAMPL 006 IF %BIGA.LT.A%I)) BIGA # A%I) 011SAMPL 007 20 CONTINUE 012SAMPL 008 WRITE %3,2)N,BIGA 013SAMPL 009 2 FORMAT %21H1THE LARGEST OF THESE,I3,11H NUMBERS IS,F9.2) 014SAMPL 010 STOP 015SAMPL 011 END 016SAMPL