IDENTIFICATION DIVISION.
PROGRAM-ID. A-BEGINNER.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 K        PIC 9(3).
01 SHO      PIC 9(2).
01 AMARI    PIC 9(1).
01 O-PAIR   PIC ZZZ9.
 
PROCEDURE DIVISION.
MAIN-001.
  ACCEPT K.

  DIVIDE K BY 2 GIVING SHO REMAINDER AMARI.
  COMPUTE O-PAIR = SHO * (SHO + AMARI).

  DISPLAY O-PAIR.

MAIN-EXIT.
  STOP RUN.