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

var mas: array [1..15] of integer;var i: integer;beginfor i:=1 to 15 do   begin  mas[i]:=random(101);  if mas[i] mod 2<>0 then inc (mas[i]);  write (mas[i], ' ');  end;end.