Программа

DEF FNF!(X!,Y!)=X!+(3+Y!*Y!)^(1/3)  'Функция вычисления производной

DEF FNDifRunKut! (X!, Y!, Break%, Xresult!)
                                  ' Функция вычисления значения искомой функции
    S! = (Xresult! - X!) / Break%           'Определение шага разбиения
    FOR Meter% = 0 TO Break% - 1 'Цикл вычисления первообразной в точке Xresul
        k1! = S! * (FNF!(X! + Meter% * S!,Y!))
        k2! = S! * (FNF!(X! + Meter% * S! + S! / 2,Y!))
        k3! = S! * (FNF!(X! + Meter% * S! + S! / 2,Y!))
        k4! = S! * (FNF!(X! + Meter% * S! + S!,Y!))
        Y! = Y! + (k1! + 2 * k2! + 2 * k3! + k4!) / 6
     NEXT Meter%
    FNDifRunKut! = Y!                    ' Определение значения функции
END DEF


'------------------------------------------------------------------------------

INPUT " Введите X0 ";X0!
INPUT " Введите Y0 ";Y0!
INPUT " Введите X ";X!
PRINT (FNDifRunKut!(X0!, Y0!, 10, X!))
END