...
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;
...