IDENTIFICATION DIVISION.

PROGRAM-ID. LoveTriangle.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 priest PIC X(20) VALUE "住職".

01 woman PIC X(20) VALUE "女性".

01 spouse PIC X(20) VALUE "配偶者".

01 detective PIC X(20) VALUE "探偵".

PROCEDURE DIVISION.

DISPLAY "住職がいます.".

DISPLAY "住職は女性に好意を寄せます.".

DISPLAY "女性には配偶者がいます.".

IF woman = "女性" AND spouse = "配偶者" THEN

DISPLAY "住職は女性に好かれるために、探偵に女性宅の空き巣を依頼します。".

MOVE "住職は女性に好かれるために、探偵に女性宅の空き巣を依頼します。" TO detective.

END-IF.

IF woman = "女性" AND detective = "探偵" THEN

DISPLAY "女性は住職の事を好きになります。".

MOVE "女性は住職の事を好きになります。" TO priest.

END-IF.

STOP RUN.