Imports System
 
Public Class Test
	Public Shared Sub Main()
		Dim X1 As Double = 3.2
        Dim Y1 As Double = 4.5
        Dim X2 As Double = 1.5
        Dim Y2 As Double = 2.5
        Dim X3 As Double = 2.7
        Dim Y3 As Double = 3.6
        Dim KatA As Double
        Dim KatB As Double
        Dim KatC As Double
        Dim Perimetr As Double
        Dim PoluPerimetr As Double
        Dim Square As Double
 
        Console.WriteLine("Введите X1")
        X1 = Console.ReadLine()
        Console.WriteLine("Введите Y1")
        Y1 = Console.ReadLine()
        Console.WriteLine("Введите X2")
        X2 = Console.ReadLine()
        Console.WriteLine("Введите Y2")
        Y2 = Console.ReadLine()
        Console.WriteLine("Введите X3")
        X3 = Console.ReadLine()
        Console.WriteLine("Введите Y3")
        Y3 = Console.ReadLine()
 
        KatA = ((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2) ^ 0.5
        KatB = ((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2) ^ 0.5
        KatC = ((X3 - X1) ^ 2 + (Y3 - Y1) ^ 2) ^ 0.5
 
        Perimetr = KatA + KatB + KatC
        Console.WriteLine("Периметр: " & Perimetr)
 
        PoluPerimetr = (KatA + KatB + KatC) * 0.5
        Console.WriteLine("Полупериметр: " & PoluPerimetr)
        Square = (PoluPerimetr * (PoluPerimetr - KatA) * (PoluPerimetr - KatB) * (PoluPerimetr - KatC)) ^ 0.5
        Console.WriteLine("Площадь: " & Square)
        Console.ReadKey()
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gWDEgQXMgRG91YmxlID0gMy4yCiAgICAgICAgRGltIFkxIEFzIERvdWJsZSA9IDQuNQogICAgICAgIERpbSBYMiBBcyBEb3VibGUgPSAxLjUKICAgICAgICBEaW0gWTIgQXMgRG91YmxlID0gMi41CiAgICAgICAgRGltIFgzIEFzIERvdWJsZSA9IDIuNwogICAgICAgIERpbSBZMyBBcyBEb3VibGUgPSAzLjYKICAgICAgICBEaW0gS2F0QSBBcyBEb3VibGUKICAgICAgICBEaW0gS2F0QiBBcyBEb3VibGUKICAgICAgICBEaW0gS2F0QyBBcyBEb3VibGUKICAgICAgICBEaW0gUGVyaW1ldHIgQXMgRG91YmxlCiAgICAgICAgRGltIFBvbHVQZXJpbWV0ciBBcyBEb3VibGUKICAgICAgICBEaW0gU3F1YXJlIEFzIERvdWJsZQoKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi0JLQstC10LTQuNGC0LUgWDEiKQogICAgICAgIFgxID0gQ29uc29sZS5SZWFkTGluZSgpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoItCS0LLQtdC00LjRgtC1IFkxIikKICAgICAgICBZMSA9IENvbnNvbGUuUmVhZExpbmUoKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCLQktCy0LXQtNC40YLQtSBYMiIpCiAgICAgICAgWDIgPSBDb25zb2xlLlJlYWRMaW5lKCkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi0JLQstC10LTQuNGC0LUgWTIiKQogICAgICAgIFkyID0gQ29uc29sZS5SZWFkTGluZSgpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoItCS0LLQtdC00LjRgtC1IFgzIikKICAgICAgICBYMyA9IENvbnNvbGUuUmVhZExpbmUoKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCLQktCy0LXQtNC40YLQtSBZMyIpCiAgICAgICAgWTMgPSBDb25zb2xlLlJlYWRMaW5lKCkKCiAgICAgICAgS2F0QSA9ICgoWDIgLSBYMSkgXiAyICsgKFkyIC0gWTEpIF4gMikgXiAwLjUKICAgICAgICBLYXRCID0gKChYMyAtIFgyKSBeIDIgKyAoWTMgLSBZMikgXiAyKSBeIDAuNQogICAgICAgIEthdEMgPSAoKFgzIC0gWDEpIF4gMiArIChZMyAtIFkxKSBeIDIpIF4gMC41CgogICAgICAgIFBlcmltZXRyID0gS2F0QSArIEthdEIgKyBLYXRDCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoItCf0LXRgNC40LzQtdGC0YA6ICIgJiBQZXJpbWV0cikKCiAgICAgICAgUG9sdVBlcmltZXRyID0gKEthdEEgKyBLYXRCICsgS2F0QykgKiAwLjUKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi0J/QvtC70YPQv9C10YDQuNC80LXRgtGAOiAiICYgUG9sdVBlcmltZXRyKQogICAgICAgIFNxdWFyZSA9IChQb2x1UGVyaW1ldHIgKiAoUG9sdVBlcmltZXRyIC0gS2F0QSkgKiAoUG9sdVBlcmltZXRyIC0gS2F0QikgKiAoUG9sdVBlcmltZXRyIC0gS2F0QykpIF4gMC41CiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoItCf0LvQvtGJ0LDQtNGMOiAiICYgU3F1YXJlKQogICAgICAgIENvbnNvbGUuUmVhZEtleSgpCglFbmQgU3ViCkVuZCBDbGFzcw==