Sub newMacros()
    Dim a, b, c, p, S As Integer
    a = Val(InputBox("Ââåäèòå ïåðâóþ ñòîðîíó òðåóãîëüíèêà"))
    b = Val(InputBox("Ââåäèòå âòîðóþ ñòîðîíó òðåóãîëüíèêà"))
    c = Val(InputBox("Ââåäèòå òðåòüþ ñòîðîíó òðåóãîëüíèêà"))
    p = (a + b + c) / 2
    S = Sqr(p * (p - a) * (p - b) * (p - c))
    MsgBox ("Ïëîùàäü òðåóãîëüíèêà ðàâíà: " & S)
End Sub

Sub Square()
    Dim a, b, c, D As Integer
    Dim x1, x2 As Double
    a = Val(InputBox("Ââåäèòå ïåðâûé êîýôôèöèåíò"))
    If a = 0 Then
        MsgBox ("Ïåðâûé êîýôôèöèåíò íå ìîæåò áûòü ðàâíûì íóëþ!")
        Exit Sub
    End If
    b = Val(InputBox("Ââåäèòå âòîðîé êîýôôèöèåíò"))
    c = Val(InputBox("Ââåäèòå òðåòèé êîýôôèöèåíò"))
    D = b * b - 4 * a * c
    If D < 0 Then
        MsgBox ("Íåò êîðíåé!")
    Else
        If D = 0 Then
            x1 = -b / (2 * a)
            MsgBox ("Êîðåíü ðàâåí " & x1)
        Else
            If D > 0 Then
                x1 = (-b - Sqr(D)) / (2 * a)
                x2 = (-b + Sqr(D)) / (2 * a)
                MsgBox ("Êîðíè ðàâíû " & x1 & " è " & x2)
            End If
        End If
    End If
End Sub