Верно ли, что сумма элементов главной диагонали квадратного массива не превышает 100?

Решение задачи:Код написан в программе PascalABC.NET.var i,j:byte; a:array[1..300,1..300] of byte; n,sum:integer;beginwrite(\'Введите размерное квадратной матрицы n = \');readln(n); randomize;sum:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(9); write(a[i,j]:2); if(i=j)then sum:=sum+a[i,j]; end; writeln; end;writeln(\'Сумма элементов главной диагонали = \', sum);if sum<=100 then write(\'Ответ: да, верно\') else write(\'Ответ: нет, неверно\');end.