синтаксис паскаля не особо помню, но вроде как то так: var A:array[1..N,1..M] of Integer; i,j,k : Integer; chetn : Boolean; { перед циклом инициализируй А } for i:=1 to N do Begin chetn := true; for j:=1 to M do Begin if (A[i,j] mod 2 <> 0) then Begin chetn := false; break; End; End; if (chetn = true) then Begin Write('Result: '); for k:=1 to M do Write(A[i,k]); WriteLn(); End; End; во втором варианте все точно так же, только условие A[i,j] mod 2 = 0