Поправить прогу,метод Эйлера - Pascal

Формулировка задачи:

Помогите поправить код,в долгу не останусь) нужно методом Эйлера получить значения в пределах [0;2] с шагом h=0,1 . y(0)=1 ур-е y'-2y/(1+x)=((1+x)^2)*e^x точное решение{ y(x)=((1+x)^2)*e^x } Код Pascal

program rab1;
 
function fxy(x, y: Real): Real;
begin
  fxy :=exp(ln(exp(x)*x))*((1+x)*(1+x))+2*y/(1+x);
end;
 
var
  x, t, a, b, h: Real;
  i, n: Integer;
 
begin
  writeln('vvedite a', ' b', ' h');
  readln(a, b, h);
  n := trunc((b - a) / h) + 1;
  
  Writeln('x':3, ' Euler':14);
  x := a;
  t := 1;
  for i := 1 to n do
  begin
    Writeln
    (x:5:2,  t:18:10);
    t := t + h * fxy(x, t);
    x := x + h;
  end;
end.

del

тему можно удалить!

Решение задачи: «Поправить прогу,метод Эйлера»

Листинг программы

program eiler;
function fxy(x, y: Real): Real;
 begin
  fxy :=exp(ln(2.71)*x)*((1+x)*(1+x))+(2*y)/(1+x);
   end;
   const
   yo=1;
 var
  x, m,a,b,h: Real;
  i,n: integer;
 
 begin
  writeln('vvedite a=   ' , 'vvedite b=   ' , 'vvedite h=  ' );
  readln(a,b,h);
 
  n:= trunc((b-a)/h)+1;
  Writeln('x':4, 'y':4);
  x:= a;
  m:= 1;
 for i := 1 to n do
  begin
Writeln
(x:5:2 , m:5:2);
 
m:= m + h * fxy(x,m);
x := x + h;
end;
end.

Объяснение кода листинга программы

Написан код на языке Pascal.
Определена функция fxy(x, y: Real): Real, которая вычисляет значение функции по координатам x и y.
Задана константа yo=1.
Заданы переменные x, m, a, b, h: Real; i, n: integer;.
Выводится сообщение с приглашением ввести значения a, b и h.
Считываются значения a, b и h.
Вычисляется значение n как количество отрезков между a и b, которые можно поместить в интервал h.
Выводится сообщение с приглашением вывести значения x и m.
Переменная x инициализируется значением a.
Переменная m инициализируется значением 1.
Запускается цикл for i := 1 to n do, который выполняется n раз.
Внутри цикла выводится сообщение с приглашением вывести значения x и m.
Вычисляется значение m как сумма h умноженное на значение функции fxy(x,m) и прибавленное к m.
Значение x увеличивается на h.
Цикл завершается.
Код завершается.