! Name the file extremes.f90 
        ! TAB indent these lines, EXCEPT FOR THE LABELS: 100, 110, 120
        PROGRAM extremes
	IMPLICIT NONE
	INTEGER, PARAMETER :: maxsize=10

	INTEGER, DIMENSION(maxsize) :: input
	INTEGER :: ilarge
	INTEGER :: ismall
	INTEGER :: j
	INTEGER :: nvals
	INTEGER :: temp

	WRITE (*, *) 'Enter number of values in data set: '
	READ (*,*) nvals

	size: IF (nvals <= maxsize) THEN
	    in: DO j= 1, nvals
	        WRITE (*, 100) 'Enter value ', j
100             FORMAT (' ', A, I3, ': ')
		READ (*,*) input(j)
	    END DO in

	    temp = input(1)
	    ilarge = 1
	    large: DO j = 2, nvals
	        IF (input(j) > temp) THEN
	            temp= input(j)
		    ilarge = j
	        END IF
	    END DO large

	    temp=input(1)
	    ismall=1
	    small: DO j=2, nvals
	        IF ( input(j) < temp) THEN
                    temp = input(j)
                    ismall = j
                END IF
            END DO small

            WRITE (*, 110)
110         FORMAT ('The values are: ')
            out: DO j = 1, nvals
                IF ( j ==ilarge ) THEN
                    WRITE (*, '(1X,I6,2X,A)') input(j), 'LARGEST'
                ELSE IF ( j== ismall ) THEN
                    write (*, '(1X, I6,2X,A)') input(j), 'SMALLEST'
                else
                    write (*, '(1X, I6)') input(j)
                end if
            end do out
        else size
            write(*,120) nvals, maxsize
120         format(1X,'Too many input values: ', I6, '>', I6)
        end if size
        end program