fork download 
  1. identification division.
  2. program-id. prog.
  3. environment division.
  4. data division.
  5. working-storage section.
  6.   77 n pic Z9.
  7.   77 i pic Z9.
  8.   77 r pic Z9.
  9. procedure division.
  10.   display 'Hello, World!'
  11.   accept n
  12.   move 0 to i
  13. 		PERFORM until 30 greater than i
  14.     compute r = 2**n
  15.     display r
  16. 			ACCEPT n
  17.   end-perform.
  18.   stop run.
  19.  
Success #stdin #stdout 0.01s 3996KB
comments (?)
stdin 
10
43
5
42
1
stdout 
Hello, World!
https://ideone.com/ytoXT
language:
COBOL 85 (tinycobol-0.65.9)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!