Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], а затем записывает нули во все элементы выше главной диагонали. Алгоритм не должен изменяться при изменении размеров матрицы

uses crt; var a:array[1 ... 10,1 ... 10] of integer; i, j, n:integer; begin write ('Ïîðÿäîê ìàòðèöè n='); readln (n); for i:=1 to n do begin for j:=1 to n do begin a[i, j]:=10+random (90); write (a[i, j]:4); end; writeln; end; for i:=1 to n do for j:=1 to n do if i