Найти сумму четных элементов массива , случайным образом , от -50 до 50;

const n=15; var    a: array[1..n] of integer;   s,i: integer; begin   s:=0;   for i:=1 to n do begin     a[i]:=random(-50,50);     write (a[i]:4);     if a[i] mod 2 =0 then s:=s+a[i];   end;   writeln;   writeln ('S = ',s); end. --------------------------------------------- 37  -1  31 -49  50  14 -49   3 -35  21  33  41  13 -16 -42 S = 6