Пожалуйста помогите , срочно
Дана матрица 7х7 элементов
Обнулить все её элементы, расположенные выше главной диагонали.
1)Тестовый пример
2)Блок схема
3)Программа

Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.Программа будет такая:PROGRAM Matrix77var A: array [1..7][1..7] of real; // Объявляем переменныеvar i, j: integerBEGINcrt;for i:= 1 to 7 do beginfor j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массивreadln;end; for i:= 1 to 7 do begin                     // Проверяем, что элемент выше диагоналиfor j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем егоend; for i:= 1 to 7 do beginfor j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массивwriteln;end;END.