program SumAndMultOfRandomElements;

var
matrix: array of array of integer;
i, j, sum, mult: integer;

begin
// Определяем размеры массива
SetLength(matrix, 5, 5);

// Заполняем массив случайными числами
for i := 0 to 4 do
for j := 0 to 4 do
matrix[i][j] := Random(10); // генерация случайного числа от 0 до 9

// Находим сумму четырех случайных элементов массива
sum := matrix[Random(5)][Random(5)] + matrix[Random(5)][Random(5)] + matrix[Random(5)][Random(5)] + matrix[Random(5)][Random(5)];

// Находим произведение девяти случайных элементов массива
mult := 1;
for i := 1 to 9 do
mult := mult * matrix[Random(5)][Random(5)];

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