PPT Slide
write (unit = *, fmt = *) " Please enter 1 or 2. "
read (unit = *, fmt = *) I
write (unit = *, fmt = *) " Thank you. You have entered: ", I
else ! Leave I value unchanged.
write (unit = *, fmt = *) I, " was computed from the value you entered. "