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

const n = 5; // задаем количество элементов массива(например 5)vara: 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.