№1.Как вычислить произведение элементов массива(1..5)В Паскале=)))№2.Найти наименьший элемент в массиве!Тоже в Паскале)

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;

1. в цикле pr:=pr*mas[ i ]
2. в цикле if min < mas [ i ] min := mas[ i ]

1)program sum_el;
Uses
Crt;
const
N=5;
type
Line=array[1..N] of Integer;
var
a:Line;
i,sum:Integer;

begin
ClrScr;
Writeln('Vvedite 5 zelih chisel. ');
sum:=0;
for i:=1 to N do
begin
Write(' -> ');
Readln (a[ i ]);
sum:=sum+a[ i ];
end;
for i:=1 to N do
begin
Write(a[ i ]:4);
end;
writeln;
Writeln('--------------------------------------------------------------');

Writeln(' Summa elementov ravna',sum);
readln
end.
2)program sum_el;
Uses
Crt;
const
N=5;
type
Line=array[1..N] of Integer;
var
a:Line;
i,min:Integer;

begin
ClrScr;
Writeln('Vvedite 5 zelih chisel. ');
sum:=0;
for i:=1 to N do
begin
Write(' -> ');
Readln (a[ i ]);

end;
for i:=1 to N do
begin
Write(a[ i ]:4);
end;
writeln;
Writeln('--------------------------------------------------------------');
min:=a[ i ];
for i:=1 to N do
begin
if min>a[ i ] then
min:=a[ i ];
end;

Writeln(min);
readln
end.