IDENTIFICATION DIVISION.
PROGRAM-ID. DEFINITION.
AUTHOR. DMITRIY.
INSTALLATION. MyLocalComputer.
DATE-WRITTEN. 11/12/2023.
DATE-COMPILED. 11/12/2023.
SECURITY. GPL.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. X-86-64.
OBJECT-COMPUTER. X-86-64.
DATA DIVISION.
WORKING-STORAGE SECTION.
1 WS-N PICTURE IS 999999.
1 WS-R PICTURE IS 999999.
1 WS-T PICTURE IS 999999.
PROCEDURE DIVISION.
BEGIN.
ACCEPT WS-N.
DIVIDE 2 INTO WS-N GIVING WS-T REMAINDER WS-R.
IF WS-R=0 THEN DISPLAY 'YES' ELSE DISPLAY 'NO'.
STOP RUN.