Program iks;
uses crt;
var n,y,x: integer;

function stepen(t, k: integer): integer;
var
  res:integer;
begin
  res := 1;
  while (k > 0) do
  begin
    if (k and 1 = 1) then
      res := res * t;
    t := t * t;
    k := k shr 1;
  end;
  stepen := res;
end;

begin
clrscr;

write('Input n = '); readln(n);
write('Input x = '); readln(x);

if (n = 3) then
 begin
  write('x+x^4/2+x^7/4 = ');
  y := round((x+stepen(x,4)/2+stepen(x,7)/4)*100);
  writeln(y DIV 100,'.',y MOD 100);
 end
else if (n = 5) then
 begin
  write('X+X^4/2+x^7/4+x^10/8+x^13/16 = ',x,'+',stepen(x,4),'/2+',stepen(x,7),'/4+',stepen(x,10),'/8+',stepen(x,13),'/16 = ');
  y := round((x+stepen(x,4)/2+stepen(x,7)/4+stepen(x,10)/8+stepen(x,13)/16)*100);
  writeln(y DIV 100,'.',y MOD 100);
 end
else begin writeln('No match'); end;

readln;
end.