mittelwert:
           procedure options(main) ;

           /* Vereinbarung der Variablen */
           declare
                   anzahl fixed decimal(3,0) ,
                   wert   fixed decimal(6,2) ,
                   summe  fixed decimal(8,2) ,
                   mittel fixed decimal(10,5) ,
                   sysin file ;

           form:
                   format(skip,a,f(12,5)) ;

                   on endfile(sysin) goto ausgabe ;

                   /* Anfangswerte zuweisen */
                   anzahl = 0 ;
                   summe = 0 ;

                   /* Werte eingeben und berechnen */
                   put skip list('Werte eingeben:') ;
                   put skip(2) ;
           eingabe:
                   do while('1'b) ;
                            get list(wert) ;
                            summe = summe + wert ;
                            anzahl = anzahl + 1 ; 
                   end eingabe ;

                   /* Mittelwert berechnen und ausgeben */
           ausgabe:
                   mittel = summe/anzahl ;
                   put edit('Summe      =',summe) (r(form)) ;
                   put edit('Mittelwert =',mittel) (r(form)) ;

end mittelwert ;
