' Constructs Magic Series of order 5, s5 = 35
' Tested with Office 365 under Windows 11
Sub MgcLns5()
Dim a(5)
y = MsgBox("Blocked", vbInformation, "MgcLns5")
End
Sheets("Klad1").Select
For i1 = 1 To 15
a(1) = i1 - 1
For i2 = i1 + 1 To 15
a(2) = i2 - 1
For i3 = i2 + 1 To 15
a(3) = i3 - 1
For i4 = i3 + 1 To 15
a(4) = i4 - 1
a(5) = 35 - a(1) - a(2) - a(3) - a(4)
If a(5) < 0 Or a(5) > 14 Then GoTo 5
If a(5) <= a(4) Then GoTo 5
n9 = n9 + 1
For j1 = 1 To 5
Cells(n9, j1).Value = a(j1)
Next j1
5
Next i4
Next i3
Next i2
Next i1
End Sub
