PROGRAM ex3_5 
INTEGER :: n 
READ *, n 
IF( MOD(n, 400) == 0 ) THEN 
PRINT *, 'うるう年' 
ELSE IF( MOD(n, 100) == 0 ) THEN 
PRINT *, '平年' 
ELSE IF( MOD(n, 4) == 0 ) THEN 
PRINT *, 'うるう年' 
ELSE 
PRINT *, '平年' 
END IF 
END PROGRAM ex3_5