program dz1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
Type
    TMatrix = Array Of Array Of integer;

Function VerifDiag(Matrix: TMatrix): Boolean;
Var
    Status: Boolean;
    I: Integer;
Begin
    I := 0;
    Status := True;
    While (Status) And (I < High(Matrix) + 1) Do
    Begin
        If (Matrix[I, I] = 0) Then
        Begin
            Status := True;
            Inc(I);
        End
        Else
            Status := False;
    End;

    VerifDiag := Status;

End;

Function CheckTwo(Matrix: TMatrix): Boolean;
Var
    Status: Boolean;
    I, J: Integer;
Begin
    I := -1;
    J := 0;
    Status := True;
    While (Status) And (I < High(Matrix) + 1) Do
    Begin
        Inc(I);
        While (Status) And (J < High(Matrix) + 1) Do
            If (Matrix[I, J] + Matrix[J, I] = 2) Then
            Begin
                Status := True;
                Inc(J);
            End
            Else
                Status := False;
    End;

    CheckTwo := Status;

End;

Procedure Main();
Var
    Matrix: TMatrix;
    I, J, Size: Integer;
    Resultat: Boolean;
begin
    Writeln('Введите размер: ');
    Readln(Size);
    SetLength(Matrix, Size, Size);
    Writeln('Введите матрицу: ');
    For I := Low(Matrix) to High(Matrix) do
        For J := Low(Matrix) to High(Matrix) do
        Begin
            Write('Введите элемент ', (I + 1), '-ой строки ', (J + 1), '-ого столбца: ');
            Read(Matrix[I, J]);
        End;
    Resultat := VerifDiag(Matrix);
    Writeln(Resultat);
    Resultat := CheckTwo(Matrix);
    Writeln(Resultat);


end;

Begin
    Main();
    Readln;
    Readln;
End.