{$r-}
Const
 M=10;
 N=12;

Type
 T=Array[1..1] of Integer;

Var
 A,V:^T;
 D:^Integer;
 i,j:Integer;

Begin
 GetMem(A, SizeOf(Integer)*M*N);
 GetMem(V, SizeOf(Integer)*M);
 GetMem(D, SizeOf(Integer));

 Randomize;

 WriteLn('Matrix A:');
 for i:=1 to M do
  for j:=1 to N do
   A^[N*(i-1)+j]:=-10+Random(20);

 for i:=1 to M do
  begin
   for j:=1 to N do
    Write(A^[N*(i-1)+j]:5);
   WriteLn;
  end;
 WriteLn;
 Writeln;

 for i:=1 to M do
  begin
   New(D);
   D^:=0;
   for j:=1 to N do
    if (A^[N*(i-1)+j]>0) and ((A^[N*(i-1)+j] mod 2)=0) then D^:=D^+A^[N*(i-1)+j];
   V^[i]:=D^;
   Dispose(D);
  end;

 Writeln('Sums:');
 for i:=1 to M do Write(V^[i]:5);

 FreeMem(A, SizeOf(Integer)*M*N);
 FreeMem(V, SizeOf(Integer)*M);

 ReadLn;
END.