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.