Отыскать произведение всех частей массива из 5 частей,заполненного с клавиатуры.

Program proisved;
const n=5; объявляем константу, количество частей в массиве
Var a: array[1..100] of integer; объявляем массив
i, n, p: integer; объявляем переменные
Begin
p:=1; Задаем первоначальное значение произведения
For i:=1 to n do
begin
write (введите число); readln (a[i]); Вводим значения с клавиатуры
p:=p*a[i]; обретаем произведение частей массива
end;
writeln(произведение частей равно: ,p);
end.