test shit

var x, l, p, wyr, eps:real;
      k:integer;
begin

writeln('podaj wartość od 0 do 1');
readln(x);

writeln('podaj przybliżenie');
readln(eps);

l:=(2*x)/((1-x)*(1-x)*(1-x));
k:=1;
wyr:=2*x;
p:=2*x;

      while wyr > eps do
      begin
      wyr:=(wyr*(k+2)*x)/k;
      p:=p+wyr;
      k:=k+1;
      end;

writeln('lewa strona' ,l);
writeln('prawa stron' ,p);
readln;
end.