Module Module1

    Sub Main()
        Dim onoma, mark, print As String
        Dim sum, grandSum As Double
        Dim count, grandCount As Short

        Console.Write("Δώστε το όνομα του μαθητή. Διαφορετικά εισάγετε τη τελεία'.' ")
        onoma = Console.ReadLine()
        count = 0 'για να μετράμε το πλήθος τον βαθμών,
        sum = 0 'αθροιστής για τους βαθμούς του κάθε μαθητή
        grandSum = 0 'ο αθροιστής για όλους τους βαθμούς της τάξης
        grandCount = 0 'ο μετρητής για το πλήθος όλων των βαθμών.

        print = ""
        Do While onoma <> "."
            Console.Write("Δώστε βαθμό για το  μαθητή. Διαφορετικά εισάγετε τη τελεία '.' ")
            mark = Console.ReadLine()

            Do While mark <> "."
                sum += CDbl(mark)
                count += 1
                Console.Write("Δωστε βαθμό για το μαθητή. Διαφορετικά εισάγετε τη τελεία '.'")
                mark = Console.ReadLine()
            Loop

            print = print + vbNewLine + "Μέσος όρος του μαθητή " + onoma + " είναι " + (sum / count).ToString
            Console.Write(vbNewLine + "Δώστε το όνομα του μαθητή. Διαφορετικά εισάγετε τη τελεία '.' ")
            onoma = Console.ReadLine()
            grandCount += count
            count = 0
            grandSum += sum
            sum = 0
        Loop
        Console.Clear()
        Console.WriteLine("ο μέσος όρος των μαθητών είναι {0}", grandSum / grandCount)
        Console.WriteLine(print)
        Console.ReadKey()


    End Sub

End Module
