вычислить элементы матрицы находяшиеся под главной диагональю

program diagonal;
Var
i,j,diagsumm,diagkol,poddiagsumm,poddiagkol,n:integer;
b:array[1..12,1..12] of integer;
 
 Begin
  WRITE('Vvedite kolichestvo elementov v massive '); READLN(N);
 FOR I := 1 TO N DO
  FOR J := 1 TO N DO
  Begin
   WRITE('b[', I, ',', J, '] '); READLN(b[I, J])
  End;
 
  FOR I := 1 TO N DO
  Begin
       WriteLn;
       FOR J := 1 TO N Do Write(b[I, J] : 3);
      End; WriteLn  ;
      writeln;
  diagsumm:=0;
  diagkol:=0;
  for i:=1 to n do begin
  diagsumm:=diagsumm+b[i,i];  inc(diagkol);
  end;    writeln(diagsumm);  writeln(diagkol) ;
 
   FOR I := 1 TO N DO
       begin
       WriteLn;
       FOR J := i TO N Do Write(b[I, J] : 3);             
       WriteLn  ;            end;
       writeln;
 
  poddiagsumm:=0;
  poddiagkol:=0;
  for i:=1 to n do begin
  for j:=i to n do begin
  poddiagsumm:=poddiagsumm+b[i,j]; inc(poddiagkol);   end;  end;
 
  writeln(poddiagsumm); writeln(poddiagkol);    readln;  readln;
  End.

program xxx;
uses crt;
var
 a:array[1..20,1..20]of integer;
 ce,i,ii:integer;
begin
 clrscr;
 writeln('Сколько элементов?');
 readln(ce);
 for i:=1 to ce do
  for ii:=1 to ce do begin
   write('[',i,',','ii','] ');
   readln(a[i,ii]);
  end;
 for i:=1 to ce do
  for ii:=1 to i do write(a[i,ii]);
end.

for i:=1 to ce do
  for ii:=1 to ce do begin
   write('[',i,',','ii','] ');
   readln(a[i,ii]);
  end;

for i:=1 to ce do begin
  for ii:=1 to ce do begin
   write('[',i,',','ii','] ');
   readln(a[i,ii]);
  end;
  writeln;
 end;