Составить программу как найти произведение элементов массива. массив состоит из 7 элементов

Var a:array [1..7] of integer; i,p:integer;
begin 
a:=1;
 for i:=1 to 7 do
begin
readln(a); p:=p*a;
end;
writeln(Произведение = ,p);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.