дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали
надо вот эту программу исправить
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A:array of array of Integer;
n,i,j:Integer;
sum:Real;
begin
Writeln('Vvedite n'); readln(n);
SetLength(a,n,n);
Writeln('Vvedite A');
for i:=1 to n do
for j:=1 to n do
Readln (A[i,j]);


Sum:=0;
for i:=1 to n do
for j:=1 to n do;
begin
if (j>i)
then sum:=sum+A[i,j];
end;
Writeln;Writeln;
Writeln('sum=',sum:8:3);
Readln;
readln;
Readln;
end.

нет

а я ещё в школе учусь((динамику не проходила

я не знала что вам по другому надо..простите

да ничего страшного

...простите ....

Var x:array [1..32000,1..32000] of integer;n,s,i,j:integer;begin  writeln('n=');readln(n);writeln('vvedite massiv=');   for i:=1 to n do begin   for j:=1 to n do begin   read(x[i,j]);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.