Составьте программу которая в массиве A из 20 произвольных чисел находит произведение минимального элемента и среднего арифметического элементов данного массива

Лови)

const
  k = 20;

var
  A: array [1..k] of real;
  i: integer;
  min, average: real;

begin
  writeln(Enter x:);
  for i := 1 to k do
  begin
    A[i] := random(k);
    writeln(A[, i, ] = , A[i]);
  end;
 
  min := A[i];
  average := 0;
  for i := 1 to k do
  begin
    average := average + A[i] / k;
    if min gt; A[i] then
      min := A[i];
  end;
 
  writeln(min * average);
end.