Integer :: x
Read *, x
If (Mod(x,2)==0) Then
Print *, 'even',x
End If
End
Example Input4
Execution Resultseven 4
<Example Program>
| Program end_if_example Integer :: x Read *, x If (Mod(x,2)==0) Then Print *, 'even',x End If End |
|
| Example Input 4 Execution Resultseven 4 |
|