Программа

{ Решение дифура y'=f(x,y)
  при известных начальных условиях
  x0, y0=f(x0) методом Эйлера }
Type Func=function(X:real):real;       { Тип функция }
Function Derivative(X:real):real;far;  { Производная }
  Begin
    Derivative:=3*X*X
  End;
Function DifAyl(X,Y:real;F:Func;Break:integer;Xresult:real):real;
                                 { Вычисление значения исходной функции }
  Var Meter:integer;                     { Счетчик }
      Step:real;                         { Шаг разбиения }
  Begin
    Step:=(Xresult-X)/Break;             { Определение шага разбиения }
    for Meter:=0 to Break-1 do Y:=Y+Step*(F(X+Meter*Step));
                                   { Вычисление первообразной в точке Xresul }
    DifAyl:=Y                      { Определение значения функции }
  End;
BEGIN
  WriteLn(DifAyl(0,0,Derivative,100,10))  { Вычисление первообразной }
END.