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.
