Imports System.Console
Module Module1
    Public Structure Notenwerte
        Dim noten As Integer
        Dim pausen As String
    End Structure
    Sub Main()
        Dim note As Notenwerte
 
        Write("Bitte Notenwerte eingeben: ")
        note.noten = ReadLine()
        Write("Bitte Pausenwerte eingeben: ")
        note.pausen = ReadLine()
 
        WriteLine("Notenwerte: " & note.noten)
        WriteLine("Pausenwerte: " & note.pausen)
        WriteLine("Bitte EINGABE drücken: ")
        ReadLine()
 
    End Sub
 
End Module