fakultaet-cobol

IDENTIFICATION DIVISION.
    PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
    01 MY-DATA.
        05 ZAHL         PIC 99999   VALUE 1.
        05 PARAMETER    PIC 99.
    01 LESBAR.
        05 AUSGABE-ZAHL PIC ZZZZ9.
PROCEDURE DIVISION.
    ACCEPT PARAMETER.
    DISPLAY PARAMETER.
    
    
    PERFORM VARYING PARAMETER 
            FROM PARAMETER BY -1 
            UNTIL PARAMETER < 2
        
        MULTIPLY PARAMETER BY ZAHL GIVING ZAHL
        
    END-PERFORM.
   
    MOVE ZAHL TO AUSGABE-ZAHL
    DISPLAY AUSGABE-ZAHL.

STOP RUN.