одномерный массив. отыскать сумму тех элементов которые без остатка делиться на

Const n=20;
var 
  s,i: integer;
  var a: array[1..n] of integer;
begin
  writeln ('Начальный массив');
  for i:=1 to n do begin
    a[i]:=random(100);
    write (a[i]:3);
    if a[i] mod 2 =0
      then s:=s+a[i];
  end;
  writeln;  
  writeln ('Сумма четных частей = ',s);
end.

------------------Итог:------------------

Начальный массив
 81 44 47 62 51 94 32 42 41 83 75 14 18 35  7 97 83 51 71 57
Сумма четных частей = 306