FORTRAN

PROGRAM GAMMA2

INTEGER Y,J

IF (Y.LT.I) GOTO 07
Y = 6
Z = J
IF (Y.GT.ALPHA) GOTO 4
J = Y
IF (K.LT.J) THEN
J = Y
END IF
BETA = 9
BETA = K-Y
I = 6

END