       *> 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 x      BINARY-SHORT.
                     05 a      BINARY-SHORT.
                     05 b      BINARY-SHORT.
              01 Calc-Values.
                     05 ans    PIC Z(10)9.
                     05 tmp    BINARY-SHORT.
       PROCEDURE DIVISION.
       AnswerMain SECTION.
       000-Start.
       
              ACCEPT x.
              ACCEPT a.
              ACCEPT b.
              
              SUBTRACT a FROM x.
              MOVE x TO tmp.
              DIVIDE b INTO tmp.
              MULTIPLY b BY tmp.
              SUBTRACT tmp FROM x.
              MOVE x TO ans.
              DISPLAY TRIM(ans).
       END PROGRAM Answer.
