program ff;
var A:array[1..100,1..100] of integer; {переменная массива}
    i,j,n:integer; {переменные для циклов}
    sum,kol:integer; {переменные суммы и кол-ва}
 
begin
write ('Vvedite razmer massiva A');
readln (n); {считываем размер массива}
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем сам массив}
 
write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; {выводим массив на экран}
 
sum:=0; kol:=0; {сумме и кол-ву присваиваем изначально нули}
 
for i:=1 to n do
for j:=1 to n do {циклами проходим по матрице}
if (A[i,j]>0) and (i<j) then {прописываем условия положительные и выше диагонали}
begin inc(kol); sum:=sum+A[i,j]; end; {сумму и кол-во соответственно увеличиваем}
writeln;
writeln('Summa= ',sum); {выводим на экран сумму}
writeln('Kol-vo= ',kol);{выводим на экран кол-во}
 
readln;
end.