write a fortran program to store scores of five courses of three students

DO 100 I=1,3

DO 101 J=1,5
READ SCORE(I,J)
101 CONTINUE
100 CONTINUE