(1) Go to http://ideone.com/ to run the following Fortran 77 sample code and Fortran 90(95) sample code; (2) Read 10 integers from stdin, output mean, min, max, and ascending sort. A. Foan 77 sample code PROGRAM MAIN INTEGER N, x EXTERNAL SUB1 COMMON /GLOBALS/ N x=0 PRINT'Enter number of repeats' READ,N CALL SUB1 x SUB SUBROUTINE SUB1 (X, DUMSUB) INTEGER N, X, Y EXTERNAL DUMSUB COMMON /GLOBALS/ N DATA Y /0/ IF (X .LT. N) THEN PRINT *, 'x = ', x, y-., Y CALL DUMSUB (XDUMSUB) END IF END