FORTRAN

PROGRAM GAMMA2

CHARACTER*6 K,Y,I,Y,J,K,J
LOGICAL BETA,J,K,BETA,K,ALPHA,K
INTEGER J,Y

Z = K
I = I+Y
BETA = X
IF (X.LT.Y) THEN
ALPHA = Z/I
I = 21
ELSE
K = X
END IF
K = BETA
BETA = SIN(BETA)
J = X*Z

END