В массиве из 6 элементов, заданных с клавиатуры, найдите произведение наибольшего и наименьшего значений (pascal abc)

Предыдущий
вопрос Следующий
вопрос

program FindMinMaxProduct;

var
arr: array[1..6] of Integer;
i, min, max, product: Integer;

begin
// Ввод элементов массива
writeln('Введите 6 целочисленных элементов массива:');
for i := 1 to 6 do
begin
readln(arr[i]);
end;

// Инициализация min и max значениями первого элемента
min := arr[1];
max := arr[1];

// Поиск наименьшего и наибольшего значений
for i := 2 to 6 do
begin
if arr[i] < min then
min := arr[i];
if arr[i] > max then
max := arr[i];
end;

// Нахождение произведения
product := min * max;

// Вывод результата
writeln('Произведение наименьшего и наибольшего значений равно ', product);
end.