Написать программу, которая находит произведение элементов массива. Размерность массива 10 элементов. Ввод элементов осуществлять с клавиатуры.

const n=10; var a:array[1..n] of integer; i:integer; p:real; begin for i:=1 to n do read(a[i]); p:=1; for  i:=1 to n do p:=p*a[i]; writeln('p = ',p); end. Пример: 4 6 2 3 8 1 4 7 9 1 p = 290304