Imports System

Public Module Module1

    Public Sub Main()

        Dim PI As Double = 3.1415

        Console.WriteLine("Ich berechne den Achsabstand der Riemen geben Sie eine Rimenlänge")

        Dim Riemenlänge As Integer = Console.ReadLine()

        Console.WriteLine("Geben Sie die Teilung")

        Dim Teilung As Integer = Console.ReadLine()

        Console.WriteLine("Geben Sie die Zähnenzahl der ersten Rad")

        Dim Zähnenzahl1 As Integer = Console.ReadLine()

        Console.WriteLine("Geben Sie die Zähnenzahl der zweiten Rad")

        Dim Zähnenzahl2 As Integer = Console.ReadLine()

        Dim Riemenachsabstand As Double = Riemenlänge/4-Teilung/8*(Zähnenzahl1+Zähnenzahl2)+1/4*((Riemenlänge-0.5*Teilung*(Zähnenzahl1+Zähnenzahl2))^2-2*Teilung^2*(Zähnenzahl1+Zähnenzahl2)^2/PI^2)^0.5

        Console.WriteLine("Achsabstand der Riemen ist gleich " & Riemenachsabstand) 

    End Sub

End Module