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

const
n=15;
var
a: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.