1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
C Este programa calcula ‚ para calcular a soma de 4 numeros
Program Calcule
IMPLICIT NONE
Integer Final, Contador
Real N1, Soma_Quadrado
Soma_Quadrado=0
CONTADOR=0
Print *, "ENTRE COM QUANTIDADE DE NUMERO"
Read(*,*) Final
Print *, "ENTRE COM" ,Final, "NUMERO"
DO WHILE (CONTADOR.LT.FINAL)
Read(*,*) N1
IF(MOD(N1,2.0).eq.0.0) then
Soma_Quadrado=Soma_Quadrado+N1**2
Endif
CONTADOR=CONTADOR+1
Enddo
Write(*,4) Soma_Quadrado
C Print 4, Soma_Quadrado
4 FORMAT (////5X, "SOMA QUADRADO = ", f8.4)

Stop
End Program Calcule