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

спасибо большое. Выручил

const n=10;var a:array[1..n] of integer;i:integer; p:real;beginfor 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 1p = 290304