program assign4;
const pi = 3.1415926535;
      hscale = 150.0;
var x, y: real;
   n: integer;
   i: integer;
   xval, yval: integer;

function f(x: real): real;
var i: integer;
    sum, sign, term: real;
begin
   sum := 0.0;
   sign := 1.0;
   for i := 1 to n do
   begin
      term := sign*(1.0/i)*sin(i*x);
      sum := sum + (2/pi)*term;
      sign := - sign
   end;
   f := sum
end;

procedure blanks(n: integer);
var i: integer;
begin
   for i := 1 to n do
      write(' ');
end;

begin
   readln(n);
   writeln('Value of n:', n);
   x := 240.0/90.0;
   for xval := 240 to 300 do
   begin
      y := f(x);
      yval := trunc(hscale*y - 120.0);
      if yval <= 0 then writeln('*')
      else if yval >= 60 then
      begin
         blanks(59);
         writeln('*')
      end
      else
      begin
         blanks(yval-1);
         writeln('+')
      end;
      x := x + 1.0/90.0
   end
end.
