1
2
3
4
5
6
7
8
9
10
Dim x As Integer
Dim y As Integer

For x = -5 To 5
For y = -5 To 5
If x ^ 2 + 2 * x * y + y ^ 2 = 16 Then
Print x; y
End If
Next y
Next x