Const
 N=3;
Procedure BBOD(A:array[,] of integer);
Begin
For var i:= 0 to N-1 do
 For var j:= 0 to N-1 do
 Read(A[i,j]);
End;
Procedure BbIBOD(A:array[,] of integer);
Begin
For var i:= 0 to N-1 do
 Begin
 For var j:= 0 to N-1 do
 Write(A[i,j]:3,' ');
 WriteLn;
 End;
End;

Function P(A:array[,] of integer;i:integer):boolean;
Begin
result:=true;
For var j:= 1 to N-1 do
 if (A[i,j-1]<=A[i,j]) then result:=false;
End;

Function Z(A:array[,] of integer;i:integer):boolean;
Begin
result:=true;
For var j:= 0 to N-1 do
 if (A[i,j] mod 2<>0) then result:=false;
End;

Var
 A:array[,] of integer;

Begin
A:=new integer[N,N];
BBOD(A);
For var i:= 0 to N-1 do
 Begin
 if Z(A,i) then WriteLn('Все элементы строки №',i+1,' - чётные');
 if P(A,i) then WriteLn('Строка №',i+1,' - убывающая последовательность');
 End;

BbIBOD(A);
End.