Составить программу для решения однородного дифференциального уравнения при заданных начальных условиях Использовать методы Рунге-Кутта, Эйлера и аналитическое решение.

program rechenie_ODU;

uses crt,printer; var xk,x,y,h,y1:real;j,n:integer;

{Функция аналитического решения дифференциального уравнения}

function fa(x:real):real; begin fa:=1/(1-0.5*x) end;

{Функция для численного решения дифференциального уравнения}

function fun(x:real; y:real):real; begin fun:=(y*y-y)/x; end;

{Процедура численного решения обыкновенного дифференциального уравнения методом Рунге-Кутта}

procedure odurunge(h,x:real; var y:real);

{h-шаг интегрирования, x-...