Массив из 12 элементов заполнен случайными двухзначными числами. Найдите сумму чётных элементов массива от 10 до 99

var a:array [1..12] of integer; i,sum:integer; begin sum:=0; randomize; for i:=1 to 12 do begin a[i]:=random(10,99); if a[i] mod 2 =0 then sum:=sum+a[i]; end; writeln('Сумма четных чисел массива = ',sum); end.