unit pr1;
 interface
 function g(x:extended;i:integer):extended;

 function f(x:extended; i:integer):extended;

 function step (x:integer; y:real):real;

 procedure pogr (x:extended; p:extended; var res:integer);

  implementation

   function step(x:integer; y:real):real;
   var
   res:extended;
   i:byte;
    begin
     res:=1;
     for i:=1 to x do
     res:=res*y;
     step:=res;
    end;

    function g(x:extended;i:integer):extended;
    var
    res:extended;
     begin
      res:=1;
      res:=-(step((i-1),x)*step((i-1),2))/step(i,5);
      g:=res;
     end;

    function f(x:extended; i:integer):extended;
    var
    res:extended;
     begin
      res:=1;
      for i:=1 to i do
      res:=res+g(x,i);
      f:=res;
     end;

    procedure pogr (x:extended; p:extended; var res:integer);
    var
    n,m:integer;
     begin
      n:=0;
      for m:=1 to 100 do
       begin
        n:=n+1;
        if (g(x,n)-g(x,n+1))<p then break;
       end;
      res:=n+1;
      f(x,res);
     end;
end.