Вычислить сумму в паскаль 1)s=1+корень из 2+корень из 3++корень из n 2)b. s=sin x + sin^2x + + sin^nx

Можно подробней?Тебе программу составить?
Program Sum;
Var S,n,i:integer;
Begin writeln ('Введите n');
readln (n);
S:=0;
for i:=1 to n do
S:=1+s+sqrt(i);
writeln ("S=");S;
End.