年金生活 AIに依頼してうるう年判定計算をCOBOLでコーディングしてもらいました

COBOL言語
IDENTIFICATION DIVISION.
PROGRAM-ID. LEAPYEAR.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 YEAR PIC 9(4).

PROCEDURE DIVISION.
    DISPLAY "西暦年を入力してください: ".
    ACCEPT YEAR.

    IF YEAR MOD 4 = 0
        AND (YEAR MOD 100 <> 0 OR YEAR MOD 400 = 0)
        DISPLAY "うるう年です。"
    ELSE
        DISPLAY "うるう年ではありません。"
    END-IF.

    STOP RUN.