program qwerty;
const n = 4; m = 3;

var
    mas: array [1..n, 1..m] of integer;
    i, j: integer;

begin
    randomize;

    for i:= 1 to n do
        for j:= 1 to m do
            mas[i][j] := random(100);

    for i:= 1 to n do
    begin
        for j:= 1 to m do
            write(mas[i][j], ' ');

        writeln;
    end;

    writeln;

    for i:= 1 to m do
        write(mas[i][i], ' ');
end.