①M=－M   ②S=S+1   ③X+Y＝Z   ④A=A+B*C

Private Sub Command1_Click()

    Dim As Single, b As Single, c As Single, p As Single, s As Single

    a≡Val(Text1. Text)

    b=Val(Text2. Text)

    c=Val(Text3. Text)

    p=(a+b+c)/2

    If a＜=p Or b＞=p Or c＞=p Then

        Label1. Caption="不能构成三角形"

    Else

        s=Sqr(p*(p-a)*(p-b)*(p-c))*p

        Label1. Caption="面积为"& s

    End If

End Sub

n=int(input())

{#blank#}1{#/blank#}

for i in range(n+1):

    flag=False

    if i%7==0:

        flag=True

    m=i

    while {#blank#}2{#/blank#}:

        if m%10==7:

            flag=True

        m//=10

    if {#blank#}3{#/blank#}:

        sum=sum+i*i

print(sum)