program Matrix;
 
const
 N = 3;  // Количество строк
 M = 4;  // Количество столбцов
 
var
 a: array[1..N, 1..M] of Integer; // Матрица для хранения чисел
 amax: Integer;                       // Переменная для максимального элемента
 s: Integer;                      // Переменная для суммы всех элементов
 i, j: Integer;                             // Переменные для циклов
 
begin
 
 amax := -1000; // Инициализируем значением Integer
 s := 0;
 for i := 1 to N do
 begin
   for j := 1 to M do
   begin
     a[i, j]:= random(10);  // Ввод элементов матрицы
 // Нахождение максимального элемента и суммы всех чисел
     // Проверяем, является ли текущий элемент максимальным
     if a[i, j] > amax then
       amax := a[i, j];
     // Нахождение суммы, Добавляем текущий элемент к сумме
     s := s + a[i, j];
   // Вывод результата
write(a[i, j]:5); // Вывод элемента с форматированием (5 пробелов)
   end;
   writeln; // Переход на новую строку после каждой строки матрицы
 
 end;
 writeln('------------------------------------');
 writeln('Максимальный элемент в матрице= ', amax);
 writeln('Сумма всех чисел в матрице= ', s);
 readln; // Ожидание нажатия Enter для закрытия
end.

cHJvZ3JhbSBNYXRyaXg7CiAKY29uc3QKIE4gPSAzOyAgLy8g0JrQvtC70LjRh9C10YHRgtCy0L4g0YHRgtGA0L7QugogTSA9IDQ7ICAvLyDQmtC+0LvQuNGH0LXRgdGC0LLQviDRgdGC0L7Qu9Cx0YbQvtCyCiAKdmFyCiBhOiBhcnJheVsxLi5OLCAxLi5NXSBvZiBJbnRlZ2VyOyAvLyDQnNCw0YLRgNC40YbQsCDQtNC70Y8g0YXRgNCw0L3QtdC90LjRjyDRh9C40YHQtdC7CiBhbWF4OiBJbnRlZ2VyOyAgICAgICAgICAgICAgICAgICAgICAgLy8g0J/QtdGA0LXQvNC10L3QvdCw0Y8g0LTQu9GPINC80LDQutGB0LjQvNCw0LvRjNC90L7Qs9C+INGN0LvQtdC80LXQvdGC0LAKIHM6IEludGVnZXI7ICAgICAgICAgICAgICAgICAgICAgIC8vINCf0LXRgNC10LzQtdC90L3QsNGPINC00LvRjyDRgdGD0LzQvNGLINCy0YHQtdGFINGN0LvQtdC80LXQvdGC0L7QsgogaSwgajogSW50ZWdlcjsgICAgICAgICAgICAgICAgICAgICAgICAgICAgIC8vINCf0LXRgNC10LzQtdC90L3Ri9C1INC00LvRjyDRhtC40LrQu9C+0LIKIApiZWdpbgogCiBhbWF4IDo9IC0xMDAwOyAvLyDQmNC90LjRhtC40LDQu9C40LfQuNGA0YPQtdC8INC30L3QsNGH0LXQvdC40LXQvCBJbnRlZ2VyCiBzIDo9IDA7CiBmb3IgaSA6PSAxIHRvIE4gZG8KIGJlZ2luCiAgIGZvciBqIDo9IDEgdG8gTSBkbwogICBiZWdpbgogICAgIGFbaSwgal06PSByYW5kb20oMTApOyAgLy8g0JLQstC+0LQg0Y3Qu9C10LzQtdC90YLQvtCyINC80LDRgtGA0LjRhtGLCiAvLyDQndCw0YXQvtC20LTQtdC90LjQtSDQvNCw0LrRgdC40LzQsNC70YzQvdC+0LPQviDRjdC70LXQvNC10L3RgtCwINC4INGB0YPQvNC80Ysg0LLRgdC10YUg0YfQuNGB0LXQuwogICAgIC8vINCf0YDQvtCy0LXRgNGP0LXQvCwg0Y/QstC70Y/QtdGC0YHRjyDQu9C4INGC0LXQutGD0YnQuNC5INGN0LvQtdC80LXQvdGCINC80LDQutGB0LjQvNCw0LvRjNC90YvQvAogICAgIGlmIGFbaSwgal0gPiBhbWF4IHRoZW4KICAgICAgIGFtYXggOj0gYVtpLCBqXTsKICAgICAvLyDQndCw0YXQvtC20LTQtdC90LjQtSDRgdGD0LzQvNGLLCDQlNC+0LHQsNCy0LvRj9C10Lwg0YLQtdC60YPRidC40Lkg0Y3Qu9C10LzQtdC90YIg0Log0YHRg9C80LzQtQogICAgIHMgOj0gcyArIGFbaSwgal07CiAgIC8vINCS0YvQstC+0LQg0YDQtdC30YPQu9GM0YLQsNGC0LAKd3JpdGUoYVtpLCBqXTo1KTsgLy8g0JLRi9Cy0L7QtCDRjdC70LXQvNC10L3RgtCwINGBINGE0L7RgNC80LDRgtC40YDQvtCy0LDQvdC40LXQvCAoNSDQv9GA0L7QsdC10LvQvtCyKQogICBlbmQ7CiAgIHdyaXRlbG47IC8vINCf0LXRgNC10YXQvtC0INC90LAg0L3QvtCy0YPRjiDRgdGC0YDQvtC60YMg0L/QvtGB0LvQtSDQutCw0LbQtNC+0Lkg0YHRgtGA0L7QutC4INC80LDRgtGA0LjRhtGLCiAKIGVuZDsKIHdyaXRlbG4oJy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLScpOwogd3JpdGVsbign0JzQsNC60YHQuNC80LDQu9GM0L3Ri9C5INGN0LvQtdC80LXQvdGCINCyINC80LDRgtGA0LjRhtC1PSAnLCBhbWF4KTsKIHdyaXRlbG4oJ9Ch0YPQvNC80LAg0LLRgdC10YUg0YfQuNGB0LXQuyDQsiDQvNCw0YLRgNC40YbQtT0gJywgcyk7CiByZWFkbG47IC8vINCe0LbQuNC00LDQvdC40LUg0L3QsNC20LDRgtC40Y8gRW50ZXIg0LTQu9GPINC30LDQutGA0YvRgtC40Y8KZW5kLg==