       IDENTIFICATION DIVISION.
       PROGRAM-ID. WHITE_CELLS.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 S PIC X(5).
       01 S1 PIC X(2).
       01 S2 PIC X(2).
       01 A PIC 9(2).
       01 B PIC 9(2).
       01 C PIC 9(2).
       01 D PIC 9(2).
       01 X PIC 9(3).
       PROCEDURE DIVISION.
       MAIN SECTION.
           ACCEPT S FROM SYSIN.
           UNSTRING S DELIMITED BY SPACE INTO S1, S2.
           MOVE S1 TO A.
           MOVE S2 TO B.
           ACCEPT S FROM SYSIN.
           UNSTRING S DELIMITED BY SPACE INTO S1, S2.
           MOVE S1 TO C.
           MOVE S2 TO D.
           COMPUTE X = (A - C) * (B - D).
           DISPLAY X(3 - FUNCTION INTEGER(FUNCTION LOG10(X)):)
           UPON SYSOUT.
       	   STOP RUN.