fork download
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. IDEONE.
  3. ENVIRONMENT DIVISION.
  4. DATA DIVISION.
  5. WORKING-STORAGE SECTION.
  6. 01 a pic x(45) value "The Cobol Math Program.".
  7. 77 b pic 99 value 60.
  8. 77 c pic 99 value 35.
  9. 77 d pic zz9 value zeros.
  10. 77 e pic 99 value 91.
  11. 77 f pic 99 value 13.
  12. 77 g pic z9 value zeros.
  13. 77 n PIC Z9 .
  14. PROCEDURE DIVISION.
  15. Display a.
  16. Subtract c From b giving d.
  17. Divide e by f giving g.
  18. Display "60 Minus 35 Equals: ",d.
  19. Display "91 Divided By 13 Equals> ",g.
  20. ACCEPT n
  21. PERFORM UNTIL n = 42
  22. DISPLAY n
  23. ACCEPT n
  24. END-PERFORM.
  25. STOP RUN.
  26.  
Success #stdin #stdout 0s 5288KB
stdin
10
43
5
42
1
stdout
The Cobol Math Program.                      
60 Minus 35 Equals:  25
91 Divided By 13 Equals>  7
10
43
 5