Найти произведение всех элементов массива из 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.