сформировать целочисленный массив из n элементов. Значение элементов вводится с клавиатуры. Найти произведение элементов с черными номерами. Pascal

var a:array[1..1000] of integer;n,i,p:integer;beginwrite('Введите количество элементов массива (n<1000): ');readln(n);for i:=1 to n do readln(a[i]);write ('Массив: ');for i:=1 to n do write(a[i],'  ');writeln;p:=1;for i:=2 to n doif i mod 2 = 0 then p:=p*a[i];writeln('Произведение элементов с чётными номерами равно ',p);readlnend.