       *> AtCoder My Practice
       *> author: Leonardone @ NEETSDKASU
       *>
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Answer.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       REPOSITORY.
              FUNCTION ALL INTRINSIC.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
              01 Input-Values.
                     05 s      PIC X(50).
                     05 a      PIC X(10).
                     05 b      PIC X(10).
              01 Calc-Values.
                     05 disp   PIC X(5).
                     05 v      BINARY-LONG.
                     05 i      BINARY-LONG.
                     05 r      BINARY-LONG.
       PROCEDURE DIVISION.
       AnswerMain SECTION.
       000-Start.
       
              ACCEPT s.
              UNSTRING s DELIMITED BY SPACE INTO a b.
              MOVE CONCATENATE(TRIM(a),TRIM(b)) TO s
              MOVE s TO v.
              MOVE "No" TO disp.
              PERFORM WITH TEST AFTER
              VARYING i FROM 1 BY 1 UNTIL i >= 1000
                     MOVE i TO r
                     MULTIPLY i BY r
                     IF r = v THEN
                            MOVE "Yes" TO disp
                     END-IF
              END-PERFORM.
              DISPLAY disp.
              
       END PROGRAM Answer.
