program ratpol(output);
const n = 5;
      npt = 100;
      small = 1.0e-30;
      pi = 3.1415926;
var x, bigsin, num, sgn, den, del: real;
    j, k: integer;
begin
  x := -1.2;
  del := 2.4/npt;
  if odd(n) then sgn := -1.0 else sgn := 1.0;
  writeln ('Add ?');
  for k := 1 to npt-1 do
    begin
      x := x + del;
      num := sgn;
      for j := 0 to n do
	num := num * (x + 1.0 - (2.0*j)/n);
      den := sin ((x+1.0)*n * pi/2.0);
      bigsin := sin (x/(1.0+2.0/n) * pi);
      if abs(num*bigsin) > small then
	writeln (x:16:8, ',', x*den/(num*bigsin):18:9)
    end;
  writeln; writeln
end.