Дан массив подсчитать произведения всех элементов массива?

Program p1; Var j : Integer; A: Array[1..5] of Real; P : Real; Begin Randomize; P:=1; For j:=1 to 5 do Begin A[j]:=random(100); P:=P*A[j]; End; Writeln('Произведение всех элементов массива А равно: ',P); End; Program p2; Var j : Integer; A: Array[1..5] of Real; Min : Real; Begin Randomize; For j:=1 to 5 do A[j]:=random(100); Min:=A[1]; For j:=2 to 5 do If( A[j] < Min ) Then Min:=A[j]; Writeln('Значение минимального элемента массива: ',Min); End;