даны y,e. Вычислить с точностью до е
http://fotki.yandex.ru/users/garagag/view/140760/ вот текст. было бы замечательно, если бы еще и с блок схемой, ибоя ну не понимаю я эту задачу совсем.

(IMG:http://s008.radikal.ru/i305/1010/71/1414719bd06b.jpg)

...
repeat read(y) until y<>0;
z:=0;
k:=1;
m:=y;
while abs(1/(k*m)>=e do
begin
z:=z+1/(k*m);
k:=k+2;
m:=m*sqr(y)
end;
...