Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах - Turbo Pascal

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

Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах: для элементов над диагональными элементами; диагональн. элементами; под диагональю.

Решение задачи: «Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах»

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

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<i then textcolor(10)
    else if j=i then textcolor(12)
    else textcolor(11);
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая обеспечивает работу с консолью.
Затем определяется константа nmax, которая ограничивает размер матрицы до 15 строк и 15 столбцов.
Создается переменная a типа array[1..nmax,1..nmax] of integer, которая представляет собой матрицу размером nmax x nmax.
Далее определяются три переменные: n, i и j, которые будут использоваться для итерации по матрице.
Код начинается с цикла repeat-until, который запрашивает у пользователя размер матрицы и проверяет, пока этот размер не будет в пределах nmax.
Внутри цикла для каждой строки матрицы выполняется цикл for, который проходит по каждому элементу матрицы.
Для каждого элемента выводится его значение с помощью функции readln(a[i,j]), где i и j - это текущие значения переменных i и j.
После завершения цикла для каждой строки выводится символ новой строки с помощью функции writeln.
В конце выводится исходная матрица с помощью цикла for для каждой строки матрицы.
Внутри цикла для каждой строки выполняется цикл for, который проходит по каждому элементу матрицы.
Выводится значение элемента с помощью функции write(a[i,j]:4), где i и j - это текущие значения переменных i и j.
После завершения цикла для каждой строки выводится символ новой строки с помощью функции writeln.
В конце выводится символ новой строки с помощью функции readln.