Найдите сумму sin(1)+sin(2)+...(M) и число слагаемых до первого отрицательного слагаемого.

var x: real;
    i, m: integer;
begin
     readln(m);
     for i := 1 to m do
         if (sin(i) >= 0) then
              x := x + sin(i)
         else
              break;
     writeln(x);
end.

Должно быть, так)