program SumRows;

const
N = 3; // количество строк
M = 4; // количество столбцов

type
Matrix = array[1..N, 1..M] of Integer;

// Функция для генерации случайного числа на интервале [0, 50]
function RandomNumber: Integer;
begin
RandomNumber := Random(51); // генерация числа от 0 до 50
end;

// Процедура для заполнения двумерного массива случайными числами
procedure FillMatrix(var A: Matrix);
var
i, j: Integer;
begin
for i := 1 to N do
begin
for j := 1 to M do
begin
A[i, j] := RandomNumber;
end;
end;
end;

// Процедура для вывода двумерного массива на экран
procedure PrintMatrix(A: Matrix);
var
i, j: Integer;
begin
for i := 1 to N do
begin
for j := 1 to M do
begin
Write(A[i, j]:4);
end;
WriteLn;
end;
end;

var
A: Matrix;
rowSum: Integer;

begin
Randomize;

FillMatrix(A);
WriteLn('Матрица:');
PrintMatrix(A);

// Вычисление суммы элементов первой строки
rowSum := 0;
for j := 1 to M do
begin
rowSum := rowSum + A[1, j];
end;

// Вычисление суммы элементов последней строки
for j := 1 to M do
begin
rowSum := rowSum + A[N, j];
end;

WriteLn('Сумма элементов первой и последней строк матрицы: ', rowSum);
end.