program laba2_2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    System.SysUtils;

var
    size: integer;
    cols: integer;
    rows: integer;
    nums1: array of array of integer;
    nums2: array of array of integer;
    numsSum: array of array of integer;
    isCorrect: boolean;


procedure inputSize(size: integer);

const
    minSize = 2;
    maxSize = 1000;
begin
    isCorrect := false;
    repeat
        Writeln('Введите размерность матрицы от', minSize, ' до ', maxSize,':');
        try
            Readln(size);
            if (size > minSize - 1) and (size < maxSize) then
                isCorrect := true
            else
                Writeln('Ошибка ввода. Введено число, удовлетворяющее условию.');
        except
            Writeln('Ошибка ввода. Введено число, удовлетворяющее условию.');
        end;
    until isCorrect;
end;


procedure inputMatr();
begin
    SetLength(nums1, size, size);
    for rows := 1 to size - 1 do
        for cols := 0 to rows - 1 do
            nums1[rows, cols] := 0;
    for rows := 0 to size - 1 do
        for cols := rows to size - 1 do
            begin
                Writeln('Введите элемент матрицы [', rows + 1, ', ', cols + 1, ']: ');
                Read(nums1[rows, cols]);
            end;
end;


function outputMatr(): integer;
begin
    for rows := 0 to size - 1 do
        for cols := 0 to size - 1 do
            Writeln(nums1[rows, cols]);
end;

begin
   readln;
end.