Сформировать массив, состоящий из 7 чисел. вывести на экран произведение всех чисел.

Const
   N = 7;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
For i:= 1 to N do
    Begin
    Read(A[i]);
    P:=P*A[i]
    End;
WriteLn('P = ',P)
End.