Module Module1

    Function soucet(ByVal a As Double, ByVal b As Double)
        soucet = a + b
    End Function
    Function rozdil(ByVal a As Double, ByVal b As Double)
        rozdil = a - b
    End Function
    Function soucin(ByVal a As Double, ByVal b As Double)
        soucin = a * b
    End Function
    Function podil(ByVal a As Double, ByVal b As Double)
        podil = a / b
    End Function

    Sub Main()

        Dim x, y As Double

        Console.Write("Zadejte prvni cislo: ")
        x = Console.ReadLine
        Console.Write("Zadejte druhe cislo: ")
        y = Console.ReadLine


        Console.WriteLine("Soucet={0:0.000}", soucet(x, y))
        Console.WriteLine("Rozdil={0:0.000}", rozdil(x, y))
        Console.WriteLine("Soucin={0:0.000}", soucin(x, y))
        Console.WriteLine("Podil={0:0.000}", podil(x, y))

        Console.ReadLine()

    End Sub

End Module