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

Формулировка задачи:

В каждой задаче задается квадратная матрица NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты. Задача: Вычислить сумму квадратов элементов, больших заданного С и находящихся на главной диагонали и ниже ее.

Решение задачи: «Вычислить сумму квадратов элементов матрицы, больших заданного С и находящихся на главной диагонали и ниже ее.»

textual
                            Листинг программы 
                        

                            const n=5;
var
  a: array [1..n,1..n] of Integer;
  i, j, s, c: Integer;
begin
  Randomize;
  for i:=1 to n do for j:=1 to n do a[i,j]:=a[i,j]:=-9+Random(19);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:4); WriteLn;
  end;
  Write('C: '); ReadLn(c);
  s:=0;
  for i:=1 to n do for j:=1 to i do
    if a[i,j]>c then s:=s+Sqr(a[i,j]);
  WriteLn('Сумма квадратов элементов, больших ',c,': ',s);
end.
                        