var arr: array[1..10] of integer;
res: longint;
begin
res:=1;
for var i:=1 to 10 do
readln(arr[i]);
res*=arr[i];
end;
writeln('Произведение всех элементов массива: '+res);
end.
Объяснение:
