заполнить и вывести массив из 15 чисел так чтобы значения элементов массива были четные числа

constn=15;vara:array[1..n]of integer;i:integer;begin    for i:=1 to n do        begin            a[i]:=random(100)*2;             write(a[i]:4);        end;end.