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

program mas;

cоnst n=5;

var

a:array[1 ... n] of integer;

i, t:integer;

begin

writeln ('Введите ', n,' елементов массива') ;

for i:=1 to n do readln (m{i}) ;

t:=1;

for i:=2 to n do t:=t*m{i};

write ('вывод массива: ') ;

for i:=1 to n do write (m{i},' ') ;

writeln ('Результат произведения элементов массива: ', t) ;

readln;

end.

Var a:array[1 ... 1000] of integer;

n, i, p:integer;

begin

write ('Введите количество элементов массива (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 do

if i mod 2 = 0 then p:=p*a[i];

writeln ('Произведение элементов с чётными номерами равно ', p) ;

readln

end.