Курсовая работа: Решение дифференциального уравнения первого порядка

BEGIN

{=====================init==========================================}

clrscr;

write('введите количество значений, которые необходимо вычислить n= ');

readln(n);

h:=0.1;

{==================end of init=========================================}

for i:=1 to n do

begin

x[i]:=(i-1)*h;

end;

solution(h);

for i:=1 to n do

begin

write('y[',i,']= ',y[i],' y"[',i,']= ',y1[i],' y""[',i,']= ',y2[i]);

writeln;

end;

writeln('');

writeln('');

write('Press <enter> to exit....');

readln;

END.