Program Count_Matrix;
type
   matrix = array of array of integer;
var
   q: matrix;
   i, j, sum, size:integer;
procedure input_file (var q: matrix; var size: integer);
var
   f: textfile;
   i, j: integer;
begin
   assignfile(f, 'input.txt');
   reset (f);
   readln(f,size);
   setlength(q, size);
   for i:=0 to size-1 do
      setlength(q[i],size);
   for i:= 0 to size-1 do
      begin
         for j:= 0 to size-1 do
         read(f,q[i,j]);
         readln(f);
      end;
   close(f);
end;

begin
   input_file (q, size);
   writeln('Матрица а:');
   for i:= 0 to size-1 do
      begin
         for j:= 0 to size-1 do
         write(q[i,j]:4);
         writeln;
      end;
   for i:=1 to size-1 do
      for j:=0 to i-1 do
      sum:=sum+q[i,j];
   writeln('Количество элементов матрицы под главной диагональю: ',(size-1)*size/2);
   writeln('Сумма элементов матрицы под главной диагональю:',sum)
end.