Номер 80,помогитееее плиииииз,срооочнооо

var c, ans, n, a, i, sum:integer; begin read(n); read(c); for i = 1 to n  do begin  read(a); sum := sum+a; if (sum >= c) then begin ans := i; break; end; end; write(ans); end.