IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-DIVIDE-13.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-NOMBRE     PIC 9999 VALUE 0000.
01  WS-DIVISEUR   PIC 99   VALUE 00.
01  WS-QUOTIENT   PIC 9999 VALUE 0000.
01  WS-RESTE      PIC 99   VALUE 00.

PROCEDURE DIVISION.
    DISPLAY "Entrez un nombre (0000 a 9999) : "
    ACCEPT WS-NOMBRE
    DISPLAY "Entrez un diviseur (01 a 99) : "
    ACCEPT WS-DIVISEUR

    DIVIDE WS-NOMBRE BY WS-DIVISEUR
		GIVING WS-QUOTIENT
		REMAINDER WS-RESTE

    DISPLAY "Quotient : " WS-QUOTIENT
    DISPLAY "Reste    : " WS-RESTE
    STOP RUN.