m: array [1..n,1..n] of integer;

procedure sum;
var
i,a,summa:integer;
begin
 for i:=1 to n do 
  for a:=1 to n do
   if m[i,a]>0 then
    summa:=summa+m[i,a];
write(summa);
end;