program matrix4ever;
const n = 3;
var a: array[1..n, 1..n] of integer;
   i, j, s : integer;
begin
   writeLn('Enter matrix:');
   for i:=1 to n do
       for j:=1 to n do read(a[i,j]);

   for i:=1 to n do
   begin
       s:=0;
       for j:=1 to n do
           if A[i,j] > 0 then inc(s, A[i,j])
                         else begin s:=-1; break end; {*}
       if s >= 0 then writeLn(i:2,' CYMMA - ', s)
   end;
end.