Program Escribeserie;
Uses crt;
Type rango=1..1000;
vector= array [rango] of double;
matriz= array[rango,rango] of double;
Var i, j, k, a, b : integer;
    p,q,r,s : double;
    t: vector;
    m: matriz;
Begin
Writeln ('ingrese cantidad de terminos d ela SF');
Read(k);
p:=3.14;
For j:=1 to 20 do
    Begin
        For i:=1 to k do
         Begin
              T[i]:=(-200*sin(2*p*(1/20)*i*j));
              r:=T[i]+r;
         end;
         Writeln (r);
         Readln;
     End;
     Readln;
End.