fork download
copy 
  1. 	       IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. SOLUTION.
  3.        DATA DIVISION.
  4.        WORKING-STORAGE SECTION.
  5.        77 A        PIC 999.
  6.        77 B        PIC 999.
  7.        77 ANS PIC 999v99.
  8.        PROCEDURE DIVISION.
  9.        ACCEPT A.
  10.        ACCEPT B.
  11.        ADD A B GIVING ANS.
  12.        DISPLAY ANS.
  13.        STOP RUN.
  14.  
  15.  
Success #stdin #stdout 0.01s 3996KB
comments (?)
stdin
copy 
13 12
stdout
copy 
000.00
https://ideone.com/r7eCz
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!