Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
IDENTIFICATION DIVISION.
PROGRAM-ID. MaxProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(4) VALUE 7.
01 B PIC 9(4) VALUE 10.
01 MAX PIC 9(4) VALUE 0.
PROCEDURE DIVISION.
IF A > B THEN
MOVE A TO MAX
ELSE
MOVE B TO MAX
END-IF
DISPLAY 'Max: ' MAX
STOP RUN.Coding works best on desktop or with an external keyboard.