Найти сумму отрицательных чисел массива и количество четных

var a: array [1… 10] of integer; s: real; n,i: integer; begin n: =0; s: =0; for i: =1 to 10 do begin readln (a[i]); if a[i]<0 then s: =s+a[i]; if a[i] mod 2=0 then n: =n+1; end; writeln (s,', ',n); end.