Проблемы с программой

[Veina]

Я написала программу на Паскале для формулы yn+1=yn+h*fn
Вот код:

program eiler;

var x,y,a,b,h:real;

function f(x,y:real):real;

begin f:= y*y*(8-20*x); end;

begin

writeln('vvedite y, a, b, h');

readln(y,a,b,h); x:=a;

repeat

writeln(x:0:1,' ',y:0:3);

y:=y+h*f(x,y);

x:=x+h;

until not (x<b);

readln;

end.

А как написать переделать для формулы yn+1=yn+h*fn+1
и для формулы yn+1=yn+(h/2)*(3fn-fn-1)
Подскажите, пожалуйста, кто-нибудь. Очень нужно. Заранее спасибо