* working with files
        program while
        
        integer x, count, sum
        real ave
        
        count = 0
        sum = 0
        
        open (unit = 10, file = 'input', status = 'old')  
        open (unit = 12, file = 'makeup1', status = 'new')

1       read (10, *, end = 2) x
                sum = sum + x
                count = count + 1
                write (12, *) count, '****', x, '****', sum
                goto 1

2       ave = sum / count
        write (12, *) ave
        
        close (unit = 10)
        close (unit = 12)
        end