дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали
на языке Turbo Pascal

            Const n=4;Var x:array [1..n,1..n] of integer;s,i,j:integer;begin   randomize;    for i:=1 to n do begin        for j:=1 to n do begin            x[i,j] := random(100);            write(x[i,j]:6);        end;        writeln;    end;s:=0;for i:=1 to n dofor j:=1 to n doif i<=j then s:=s+x[i,j];writeln('s=',s);end.