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;