Написать программку для решения последующей задачи: дана квадратная матрица порядка

На  моем возлюбленном бейсике
Dim A() As Integer, i As Integer, k As Integer, N As Integer
Randomize
Print "N = "; : Input N
ReDim A(N, N)
For i = 1 To N
For k = 1 To N
A(i, k) = Int(Rnd(1)*10) + 1 ' Наполняем матрицу случайными числами от 1 до 10
Print A(i, k) amp; CHR(9); ' Выводим начальную матрицу через табуляцию
Next k
Print ' Переход на следующую строчку вывода
Next i
Print : Print ' Спускаемся на 2 строчки
For i = 1 To N
For k = 1 To N
If k gt;= i Then A(i, k) = 1 ' Наполняем единицами подходящую область
Rem У области выше основной диагонали номер столбца больше строки
Print A(i, k) amp; CHR(9); ' Выводим окончательную матрицу через табуляцию 
Next k
Print ' Переход на следующую строчку вывода
Next i
End