Вах! Спасибо большое, хех а получившаяся формула почти не отличается от той которую я только сейчас сам составил,
Begin
I[0]:=1;
t:=0;
writeln('y(0) I= ',I[0]:6:3);
for j:=1 to N do
begin
z:=I[j-1]+h/2*f2(0+t,I[j-1];
I[j]:=I[j-1]+h*f2((0+t)+(h/2),z);
writeln('y(',t+h,') I= ',I[j]:6:3);
t:=t+h
end;
end.
такой вот кусок кода у меня получился =) то же самое можно сказать