Compile and Execute COBOL Online

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
source-computer. stf-1040.
object-computer. stf-1040.
input-output section.

DATA DIVISION.
WORKING-STORAGE SECTION. 
77 nombre pic 9(4).
77 nb-nombres pic 99.
77 somme pic 9(6) value is zero.
77 carre pic 9(7).

77 moyenne pic 9(4)V99.
77 ED-moyenne pic zzz9.99.

77 somme-carres pic 9(8) value is zero.
77 ED-somme-carres pic z(7)9.

77 moyenne-carres pic 9(4)V99.
77 ED-moyenne-carres pic zzz9.99.

77 compteur pic 999 value is zero.

77 minimum pic 9(4) value is 9999.
77 ED-minimum pic 9(4).
77 maximum pic 9(4) value is zero.
77 ED-maximum pic 9(4).

77 nom-etudiant pic X(25).

01 Etudiant occurs 10.
    02 Nom pic X(30).
    02 Prenom pic X(25).
    02 Notes pic 99V99 occurs 5.
    



PROCEDURE DIVISION.
    Principal.
        DISPLAY "combien de nombres ?"
        ACCEPT nb-nombres.
        DISPLAY "nom étudiant "
        ACCEPT nom-etudiant.
        PERFORM Calcul
            UNTIL compteur = nb-nombres.
        PERFORM Edition.

STOP RUN.

Calcul.
    accept nombre.
    IF nombre < minimum
        THEN move nombre to minimum
    END-IF.
    IF nombre > maximum
        THEN move nombre to maximum
    END-IF.
        
    add 1 to compteur.
    add nombre to somme.
    multiply nombre by nombre
        giving carre.
    add carre to somme-carres.

Edition.
    divide somme by nb-nombres
        giving moyenne.
    move moyenne to ED-moyenne.
    move somme-carres
        to ED-somme-carres.
    divide somme-carres by nb-nombres
        giving moyenne-carres
    move moyenne-carres 
        to ED-moyenne-carres.
    move minimum 
        to ED-minimum.
    move maximum
        to ED-maximum.
        
    move nom-etudiant to Nom(1).
    move nombre to Notes(1, 2).
        
    display "moyenne :" ED-moyenne.
    display "somme des carres :"
        ED-somme-carres.
    display "moyenne des carres :"
        ED-moyenne-carres.
    display "nombre minimum :"
        ED-minimum.
    display "nombre maximum :"
        ED-maximum.
        
    display "nom :"
        Nom(1).
    display "note :"  
        Notes(1, 2).