program fgf;

Uses
    sysutils;

Type
    Matrix = array of array of Integer;

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

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


    for i := 0 to k-1 do
    begin
    for j := 0 to k-1 do
    write(mas[i, j]:6);
    writeln
    end;
    writeln;

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


readln
end.