Найти сумму четных элементов массива , случайным образом , от -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 -42S = 6