ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
1. Вычислить сумму :
a. S=1+√2 + √3 + ... + √n

b. S=sin x + (sinx)^2 + ... + (sinx)^n

Cпасибо

1)vari,n:integer;s:real;begin    readln(n);         for i:=1 to n do             s:=s+sqrt(i);writeln('S: ',s:4:2);end.2)vari,n:integer;s,x:real;begin   writeln('n, x ?');readln(n);readln(x);             for i:=1 to n do                   if x<>0 then                        begin                            if x>0 then                                      s:=s+exp(ln(sin(x)*i))                              else                                  s:=s-exp(ln(sin(x)*i))                         end;writeln(s:4:2);end.