{* Задача265 *}

REM basic

' Поиск трех последовательных элементов, сумма которых максимальна, в числовом массиве из 30 элементов


N=30

Dim i, Max, Trio, a(N) As Integer

Trio=a(1)+a(2)+a(3)

Max=Trio

Loop

For i = 4 To N

  Trio=Trio+a(i)-a(i-4)

  If Trio > Max Then Max = Trio

Next i

PRINT Max

End