program fgf;

Uses
    sysutils;

Type
    Matrix = array of array of array of Integer;

var
    mas: Matrix;
    i, j, n, k: Integer;
    IsCorrect: Boolean;

begin
    Writeln('vvedi n');
    readln(n);
    Dec(n);
    SetLength(mas, n, n, n);
    for i := 0 to n do
        for j := 0 to n do
        begin
            repeat
                Writeln('Введите значение элемента матрицы [', i, ',', j, ']');
                IsCorrect := true;
                try
                    readln(mas[0][i][j])
                except
                    IsCorrect := false;
                    Writeln('Значение матрицы должно быть числом')
                end;
            until IsCorrect;
        end;

    for i := 0 to n do
    begin
    for j := 0 to n do
    write(mas[0][i][j]:6);
    writeln
    end;
    writeln;

    for i := 0 to n do
    begin
    for j := 0 to n do
    if mas[0][i][j] = 1 then
        begin
            Inc(k);
        end;
    end;

    for j := 0 to n do
    begin
    mas[1][0][j] := k;
    end;
    writeln('Количество единиц: ', k);


readln
end.