a = 5.0
h = 1.5708
isFirst = .t.


FOR i=1 TO 60000
    p1 = -(SIN(i*h)/i)
    p2 = a*(1-COS(i*h))/(i*i)
    B(i) = p1+p2
    IF isFirst
        * Для первого шага цикла ничего не делаем. Надо просто "запомнить" первое значение
        isFirst = .f.
    ELSE
        IF (prev <= B(i))
           * Находимся на отрезке возрастания функции
           * Здесь каждое последующее значение больше предыдущего
            maxi = i
        ELSE
           * Находимся на отрезке убывания функции
           * Если предыдущий отрезок был возрастанием, то сохраняем максимум предыдущего отрезка
           * и сбрасываем значение счетчиков
           IF maxi > 0
               k = k + 1
               maximum(k) = maxi
               maxi = 0
           ENDIF
        ENDIF
    ENDIF

    * Запоминаем текущее значение для сравнения его со следующим шагом цикла
    prev = B(i)

ENDFOR

* Если последний отрезок функции был возрастанием, то следует записать последнее значение
IF maxi > 0
    k = k + 1
    maximum(k) = maxi
ENDIF

* Выводим список найденных максимумов
FOR k=1 TO ALEN(maximum)
    maxi = maximum(k)

    ?maxi
    ?B(maxi)
ENDFOR