Question

Помогите.
Турбо Паскаль
Вывести таблицу сочетаний цветов фона и текста (textcolor и textbackgroundcolor)
Красный текст красный фон - Красный текст оранжевый фон - Красный текст желтый фон - ...
Оранжевый текст красный фон - Оранжевый текст оранжевый фон - Оранжевый текст желтый фон - ...
... и так таблицу цветов 7 на 7, со всеми цветами радуги.

Answer 1

uses CRT;
var i,j:integer;
begin
  TextMode(CO80);
  for i:=0 to 15 do
  begin
    TextColor(i);
    for j:=0 to 7 do begin
      TextBackGround(j);
      Write(i:2,'/',j:2,' ')
    end;
    Writeln
  end;
  ReadKey
end.