Найдите пожалуйста ошибкуmas2; var i,j,sum,kol:integer; a: array [1..5, 1..5] of integer; function rs (var kol:integer): integer; var sum:integer; begin sum:=0; kol:=0; for i:=1 to 5 do for j:=1 to 5 do if (A[i,j]>0) and (j>i) then begin inc(kol); sum:=sum+A[i,j]; end; rs:=sum; end; begin for i:=1 to 5 do for j:=1 to 5 do A[i,j]:= Random (9); for i:=1 to 5 do begin for j:=1 to 5 do write(A[i,j]:2); writeln; end; writeln; sum:=rs(kol); writeln(‘Сумма= ‘,sum); writeln(‘Количество=’,kol); readln;
end.