Найти сумму четных элементов массива целых чисел.Размерность массива - 20.Заполнение массива осуществить случайными числами от 100 до 200

var a:array [1..20] of integer; s,i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(101)+100; write (a[i],' '); end; writeln; s:=0; for i:=1 to 20 do  if odd(a[i])=false then s:=s+a[i]; writeln (s); readln; end.