Дан массив из n элементов. в нем четные числа заменить на 0, а нечетные на -1 ,вывести на экран монитора содержимое массива до обработки и после обработки

const n = 5; // задаем количество элементов массива(например 5) var a: array [1..n] of integer; i : integer; begin   for i:= 1 to n do    writeln(a[i]);// вывод исходного массива  for i:= 1 to n do  begin  if a[i] mod 2 = 0 then a[i] := 0 else a[i] := -1;// замена четных и нечетных элементов  writeln(a[i]); // вывод нового массива  end; end.