Написать программу, которая находит произведение элементов массива. размерность массива 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