Заполните треугольник высотой n строк цифрами от 0 до 9 (циклически) с последовательно меняющимися цветами

uses crt;
var len: integer; {количество цифр в текущей строке}
i,j: integer; {счетчики цикла}
digit: integer; {цифра}
color: integer; {цвет}
pos: integer; {начальная позиция в строке}
n: integer; {размер}
  begin
clrscr;
writeln ('Рисование треугольника');
repeat
write ('Введите его высоту от 1 до 10: ');
readln (n);
if (n<1)or(n>10) then writeln ('Введена неправильная высота');
until (n>=1)and(n<=10);
clrscr;
len:=(n+1)-n;digit:=0;pos:=18;color:=1;
for i:=1 to n do
begin
for j:=pos to len+pos-1 do
begin
gotoxy (j,i);
textcolor(color);
write (digit);
color:=color+1;
if color>15 then color:=1;
digit:=digit+1;
if digit>9 then digit:=0;
end;
pos:=pos-1;
len:=len+2;
end;
readln
end.

for i:=1 to n do
 begin
  for j:=len+pos-1 downto pos do
   begin

uses Crt;
var n, i, j, c: Integer;
begin
  Write('n: '); ReadLn(n); Dec(n); {c:=0;}
  for i:=n downto 0 do begin
    Write('':n-i);
    for j:=(i-1)*(i+1)+1 to i*(i+2) do begin
      TextColor(c mod 15+1); Inc(c); Write(j mod 10);
    end; WriteLn;
  end;
end.

uses Crt;
var n, i, j, c: Integer;
begin
  Write('n: '); ReadLn(n); Dec(n); {c:=0;}
  for i:=n downto 0 do begin
    Write('':n-i);
    for j:=Sqr(i) to i*(i+2) do begin
      TextColor(c mod 15+1); Inc(c); Write(j mod 10);
    end; WriteLn;
  end;
end.

uses Crt;
var n, i, j: Integer;
begin
  Write('n: '); ReadLn(n); Dec(n);
  for i:=n downto 0 do begin
    Write('':n-i);
    for j:=Sqr(i) to i*(i+2) do begin
      TextColor(j mod 10+6); Write(j mod 10);
    end; WriteLn;
  end;
end.

  for i:=0 to n do begin

    for j:=i*(i+2) downto Sqr(i) do begin

var
  i, j, n: integer;
begin
  write('Введите высоту [1..4]: ');
  readln(n);
  for i := n downto 1 do
    begin
      write('':n-i);
      for j := i * (i - 1) div 2 to i * (i + 1) div 2 - 1 do
        begin
          TextColor(j mod 10 + 4);
          write(j :2)
        end;
      writeln
    end;
  readln
end.

uses
  crt;
var
  d, i, j, n: integer;
begin
  write('Введите высоту: ');
  readln(n);
  if n > 1 then d := trunc(ln((n - 1) * n div 2) / ln(10)) + 2 else d := 2;
  if odd(d) then inc(d);
  for i := n downto 1 do
    begin
      write('' :(n - i) * d div 2);
      for j := i * (i - 1) div 2 + 1 to i * (i + 1) div 2 do
        begin
          TextColor(j mod 10 + 6);
          write(j - 1 :d)
        end;
      writeln
    end;
  readln
end.