вычислите сумму ряда s=sin(1)+sin(2)+...+ sin(n),для n,введенного с клавиатуры

Program n1;var s: real;i,n: integer;begins:=0;readln(n);for i:=1 to n do s:=s+sin(i);writeln(s);end.