编辑代码

PROGRAM MAIN  
    IMPLICIT NONE
    REAL::X=0.1,Y=0.2,A=0.3,H,S
    H=X+Y+A
    S=(X+Y)/A
    WRITE(*,2F8.3),H,S
    END