Verified answer

var a: array [1..100,1..100] of integer;
i,j,s,sn,n,m:integer;
Begin
    read(n,m);
    for i:= 1 to n do
        for j:= 1 to m do begin
            read(a[i,j]);
            if (j>i) and (a[i,j]>0) then begin
                sn:=sn+1;
                s:=s+a[i,j];
            end;
        end;

    writeln(s,sn);
End.