Function step (x,n):real;
  Var i:integer;
      q:real;
  Begin
    q:=1;
    for i := 1 to n do
    q:=q*x;
  end;


Function Integral(x:real; n:integer):real;
  Var cos:real;
  Begin
    if n>=2 then
      begin
        cos:=Step(cos(x),n-1);
        Integral:=(1/n-1)*(sin(x)/cos)+(n-2/n-1)*Integral(x,n-1);
      end
    else
      if n=1 then
      integral:= ln(tan((pi/4)+(x/2))
    else
    Integral:=x;
    end;