Что не так с этой программой ?
program pr;
var i, p: integer;
a: array [1..5] of integer;
begin
for i:=1 to 5 do read (a[i]);
begin
p:=0;
for i:= 1 to 5 do
p:=p*a[i];
begin
write (p,' ');
end;
end;
end.
Заданием было найти сумму пяти элементов массива

program pr;var i, p: integer;a: array [1..5] of integer;beginfor i:=1 to 5 do read (a[i]);p:=0;for i:= 1 to 5 do p:=p+a[i];write (p,' ');end.

так красивее)

program pr;var i, p: integer;a: array [1..5] of integer;beginfor i:=1 to 5 do read (a[i]);p:=0;for i:= 1 to 5 do p:=p+a[i]; //в это строчке была ошибка. ты постоянно умножала на нольwrite (p);end.