program bank
        integer betrag
        integer,dimension(7)::schein
        integer i
        schein(1) = 500
        schein(2) = 200
        schein(3) = 100
        schein(4) =  50
        schein(5) =  20
        schein(6) =  10
        schein(7) =   5
        read (*,*) betrag
        i=1
        do while (betrag>4)
          do while (betrag<schein(i))
            i=i+1;
          enddo
          write (*,*) schein(i)
          betrag=betrag-schein(i)

        enddo
        write (*,*) betrag
      end program