Public Sub Çàäàíèå10_Âàðèàíò6()
Dim A(3, 3), i, j, s, n, st, i1, j1, c, p, t As Integer, b As Boolean
n = 3
For i = 0 To n
    For j = 1 To n
    A(i, j) = InputBox("a" & i & " " & "j")
    Next j
Next i


b = False
 While b <> True

                For i = 1 To n
                    For j = 1 To n
                        If A(i, j) = 1 Then
                            s = i
                            c = c + 1
                            st = j
                            p = i
                            t = j
                        End If
                    Next j
                Next i
Loop

1:
                Do While A(s, st) <> 0
                s = s + 1
                s = s - 1
                Loop
                Do While A(s, st) <> 0
                st = st + 1
                st = st - 1
                Loop

                For i1 = p To s
                    For j1 = t To st
                    A(i1, j1) = 0
                    Next j1
                Next i1

                b = True
                For i = 1 To n
                    For j = 1 To n
                        If A(i, j) <> 0 Then
                        b = False
                        End If
                    Next j
                Next i
                Next
writeln(c);
end.
End Sub