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

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