write (6,10)

10 format (1x, ' please enter a 3 digit number')

read (5,8) number1

8 format (i5)

write (6,11) number1

11 format (1x, ' the number you entered is ', i3 )

write (6,10)

read (5,8) number2

write (6,11) number2

if (number1 .GE. number2) write (6,27) number1

go to 31

if (number2 .GE. number1) write (6, 27) number2

27 format (1x, ' the bigger number is ', i3)

31 if (number1) 101, 102, 103

101 write (6,105) number1

go to 120

102 write (6, 106) number1

goto 120

106 format (1x, i5, ' is neither positive nor negative ')

103 write (6,107) number1

107 format (1x, i5, ' is a positive number ')

105 format (1x, i5, ' is a negative number ')

120 stop

end