program MultiplyArrayElements;vararr: array[1..5] of integer;i, multiply: integer;beginmultiply := 1;
writeln('Enter 5 integers:');for i := 1 to 5 dobeginreadln(arr[i]);multiply := multiply * arr[i];end;
writeln('The product of array elements is: ', multiply);end.
program MultiplyArrayElements;
var
arr: array[1..5] of integer;
i, multiply: integer;
begin
multiply := 1;
writeln('Enter 5 integers:');
for i := 1 to 5 do
begin
readln(arr[i]);
multiply := multiply * arr[i];
end;
writeln('The product of array elements is: ', multiply);
end.