Program T1149;
Var i,n:1..200;
    op:text;
Procedure a(p:integer);
Var i,j:integer;
Begin
     For  i:=1 to p do Begin
          write('sin');
          if i=p then Begin write('(',i,')');break;end
          else If odd(i) then write('(',i,'-')
                         else write('(',i,'+');
          end;
end;

Procedure s(n:integer);
Var i,j,k:integer;
Begin
     k:=n;
     For i:=1 to n-1 do write('(');
     For i:=1 to n-1 do Begin
         a(i);write('+',k-i+1,')');
         End;
     a(n);
end;

Begin
     Readln(n);
     s(n);
     For i:=1 to n-1 do write(')');write('+1');
     Readln
End.

You get WA on test #1.
Can't you fix it yourself?