IDENTIFICATION DIVISION.
PROGRAM-ID. ABC074A.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 N PIC 9(3).
77 A PIC 9(5).
77 S PIC ZZZZ9.

PROCEDURE DIVISION.
ACCEPT N.
ACCEPT A.
COMPUTE S = N * N - A.
DISPLAY S.
STOP RUN.
