A Complete Program
The following program reads three real numbers, prints
them, computes their
average and prints it:
C THIS PROGRAM
READS 3 REAL NUMBERS
C AND COMPUTES
AND PRINTS THE AVERAGE
C
REAL NUM1, NUM2, NUM3, SUM, AVG
PRINT*, ‘ENTER THREE REAL NUMBERS’
READ*, NUM1, NUM2,
NUM3
PRINT*, 'THE
NUMBERS ARE ', NUM1, NUM2, NUM3
SUM = NUM1 + NUM2
+ NUM3
AVG = SUM / 3
PRINT*, 'THE
AVERAGE IS ', AVG
END