Surprise Language Round #5

はい。言語はOpenCobol 1.0指定らしいです。
http://codeforces.com/contest/153

A. A + B

ざっくりと大意

・むりむり 方針のようなもの ・かたつむり

ぱくりです、

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(10).

       PROCEDURE DIVISION.
         ACCEPT STR
         MOVE STR TO A
         ACCEPT STR
         MOVE STR TO B
         COMPUTE B = A + B
         IF B <= 9
             DISPLAY B(10:1)
         ELSE
         IF B <= 99
             DISPLAY B(9:2)
         ELSE
         IF B <= 999
             DISPLAY B(8:3)
         ELSE
         IF B <= 9999
             DISPLAY B(7:4)
         ELSE
         IF B <= 99999
             DISPLAY B(6:5)
         ELSE
         IF B <= 999999
             DISPLAY B(5:6)
         END-IF
         END-IF
         END-IF
         END-IF
         END-IF
         END-IF
         STOP RUN.