Найти сумму отрицательных слагаемых суммы sin2+sin3++sinm. паскаль

Опять похожая задача у тебя) Держи решение:

const m=?; {Вместо "?" нужно вписать любое число}
Var s:real;
Begin
 s:=0;
 for i:=2 to m do
   if sin(i)<0 then s:=s+sin(i);
 writeln(s);
End.