Private Sub Form_Load()
iii = FreeFile
Open "D:\results2222.txt" For Output As #iii
Dim e(600), s(99999), p(99999), t(999999)

n = 5

e(5) = 15

For i1 = 1 To e(5) - 1
For i2 = i1 + 1 To e(5) - 1
For i3 = i2 + 1 To e(5) - 1
For i4 = i3 + 1 To e(5) - 1

e(1) = i1
e(2) = i2
e(3) = i3
e(4) = i4



si = 0
For i = 1 To n
For j = i To n
si = si + 1
s(si) = e(i) + e(j)
Next j
Next i

pi = 0
For i = 1 To n
For j = i To n
pi = pi + 1
p(pi) = e(i) * e(j)
Next j
Next i

h = 0
For i = 1 To (n + 1) * n / 2
h = h + 1
t(h) = s(i)
Next i

For i = 1 To (n + 1) * n / 2
h = h + 1
t(h) = p(i)
Next i

For i24 = 1 To (n + 1) * n
For j24 = 1 To (n + 1) * n
If i24 <> j24 And t(i24) = t(j24) Then GoTo 1
Next j24
Next i24

GoTo 2

'1 Next ii24

1 Next i4
Next i3
Next i2
Next i1

GoTo 3

2 Print #iii, e(1), ",", e(2), ",", e(3), ",", e(4), ",", e(5)


'3 MsgBox "no solutions", e(5)
3 End Sub