fork download 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. EXEMPLO2.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7. 	WORKING-STORAGE SECTION.
  8. 	77 n PIC Z9 .
  9.  
  10. 	PROCEDURE DIVISION.
  11. 		DISPLAY "DIGITE UM NUMERO:".
  12. 		ACCEPT n
  13. 		PERFORM UNTIL n = 13
  14. 			DISPLAY "NUMERO DIGITADO:"
  15. 			DISPLAY n
  16. 			ACCEPT n
  17. 		END-PERFORM.
  18. 		DISPLAY "O PROGRAMA SERA ENCERRADO POIS FOI DIGITADO O NUMERO 13.".
  19. 		STOP RUN.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
5
10
13
compilation info 
prog.cob:18: Warning: File not terminated by a newline
prog.cob:18: Error: syntax error, unexpected $end
stdout 
Standard output is empty
https://ideone.com/O2rUz
language:
Cobol (gnucobol 2.2.0)
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!