программа с использованием рекуррентных формул

[giggles]

я уже второй день мучаюсь, почему то все время выдает 0 в ответе
вот условиеЗадание
5. Простая циклическая программа с использованием рекуррентных формул. При отсутствии таких формул задача не принимается
викина залдача.bmp

[ОДИНОЧЕСТВО В СЕТИ]

я уже второй день мучаюсь

на "мучения" можно посмотреть?

[giggles]

program v;
var x,y,a,b:real;
i: integer;
begin
writeln ('vvod x');
readln (x);
a:=1;
b:=1;
y:=0;
while b<=5 do
begin
y:=(y+a*b)/x*x;
a:=a+1;
b:=b*x;
end;
writeln ('y=', y:8:4);
end.
строго не судите))

[ОДИНОЧЕСТВО В СЕТИ]

формула Аn+1=((n+1)/n)*x*An

var i:integer;
   ch,x,z:real;
begin
readln(x);
z:=0;
ch:=1/x;
i:=1;
while i<=5 do
begin
z:=z+ch;
ch:=ch*(i+1)*x/i;
inc(i);
end;
writeln('x=',x:6:3,'z=',z:6:3);
readln
end.

[giggles]

спасибо) но я все равно по другому сделала)))