＜ELSE Example Program＞

Program else_example
  Integer :: i
  Read *, i
  If (Mod(i,2)==0) Then
    Print *, 'even'
  Else
    Print *, 'odd'
  End If
End Program

＜Example input 1＞

3

■ Execution Results

 odd

＜Example input 2＞

4

■ Execution Results

 even