Турбо паскаль вывести таблицу сочетаний цветов фона и текста (textcolor и textbackgroundcolor) красный текст красный фон - красный текст оранжевый фон - красный текст желтый фон - оранжевый текст красный фон - оранжевый текст оранжевый фон - оранжевый текст желтый фон - и так таблицу цветов 7 на 7, со всеми цветами радуги.
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.