program SumAndProduct;

const
N = 5; // размер массива

var
arr: array of array of integer;
i, j, sum, product, count1, count2: integer;

begin
Randomize;

// Выделение памяти под двумерный массив
SetLength(arr, N, N);

// Заполнение массива случайными значениями и нахождение суммы и произведения
sum := 0;
product := 1;
count1 := 0;
count2 := 0;

for i := 0 to N - 1 do
begin
for j := 0 to N - 1 do
begin
arr[i][j] := Random(10); // случайное число от 0 до 9
sum := sum + arr[i][j];
product := product * arr[i][j];

if count1 < 4 then
begin
count1 := count1 + 1;
sum := sum + arr[i][j];
end;
if count2 < 9 then
begin
count2 := count2 + 1;
product := product * arr[i][j];
end;
end;

end;

// Вывод суммы и произведения на экран
writeln('Сумма четырех случайных элементов массива: ', sum);
writeln('Произведение 9 случайных элементов массива: ', product);
end.