Module Module1

    Sub Main()
        Console.WriteLine("Площадь треугольника")
        Console.WriteLine("Введите число A")
        Dim A As Integer = Integer.Parse(Console.ReadLine())
        Console.WriteLine("Введите число B")
        Dim B As Integer = Integer.Parse(Console.ReadLine())
        Console.WriteLine("Введите число С")
        Dim C As Integer = Integer.Parse(Console.ReadLine())
        Dim P As Double = (C + A + B) / 2
        Console.WriteLine("Прощадь треугольника : {0}", Math.Sqrt(P * (P - A) * (P - B) * (P - C)))
        Console.Read()
    End Sub

End Module