Дано целое положительное число n, вещественное число x

function f(x : Real; n : Integer) := sin(power(x,n));
begin
  var(n,x):=(ReadInteger,ReadReal);
  var y:=f(x,1);
  var(minN,minX,maxN,maxX):=(1,y,1,y);
  for var i := 2 to n do
    begin
      y:=f(x,i);
      if y<minX then (minN,minX):=(i,y)
      else if y>maxX then (maxN,maxX):=(i,y);
    end;
  WriteLnFormat(' минимальное f({0}) = {1}{4}максимальное f({2}) = {3}', minN,minX,maxN,maxX,NewLine);
end.

var
  n,nmin,nmax:integer;
  x,xmin,xmax,px,t:real;
begin
  n:=ReadlnInteger('n=');
  x:=ReadlnReal('x=');
  nmin:=1;xmin:=sin(x);
  nmax:=1;xmax:=xmin;
  px:=x;
  for n:=2 to n do begin
    px:=px*x;
    t:=sin(px);
    if t>xmax then begin
      xmax:=t;
      nmax:=n;
    end;
    if t<xmin then begin
      xmin:=t;
      nmin:=n;
    end;  
  end;
  WritelnFormat('Xmax={0:N6} Nmax={1}; Xmin={2:N6} Nmin={3}',xmax,nmax,xmin,nmin);
end.