C THIS PROGRAM CALCULATES ALL PRIME NUMBERS FROM 11 TO 50 PRIME010 DO 10 I=11, 50, 2 PRIME020 J=1 PRIME030 4 J=J+2 PRIME040 A=J PRIME050 A=I/A PRIME060 L=I/J PRIME070 B=A-L PRIME080 IF (B) 5, 10, 5 PRIME090 5 IF (J .LT. SQRT (FLOAT (I))) GO TO 4 PRIME100 WRITE (6, 105) I PRIME110 105 FORMAT (I4, ' IS PRIME') PRIME120 10 CONTINUE PRIME130 END PRIME140