program f;<br />
var A:array[1..100] of integer;<br />
i,j,n,m:byte;<br />
s:longint;<br />
begin<br />
write('введите n и m<=n');<br />
readln(n,m);<br />
for i:=1 to n do readln(A[i]);<br />
for i:=1 to n-m+1 do begin<br />
s:=0;<br />
for j:=i to i+m-1 do<br />
if (A[j]<0) and (A[j] mod 2=0) then<br />
s:=s+A[j];<br />
writeln('знач ',i,'ravno',s);<br />
end;<br />
end.