Exercício da matriz da abobrinha

PROGRAM ABOBRINHA

REAL N,P(50),S,M,i

READ*,N

S=0

DO i=1,N,1

READ*,P(i)

S=S+P(i)

ENDDO

M=S/N

PRINT*,S

PRINT*, M

END