Матрица, элементы которой - разные цвета

program color_matrix;
var row,col,red,green,blue:integer;
 
begin
  randomize;
  
  for row:=1 to 7 do
    begin
      for col:=1 to 7 do
         begin
           red:=random(256);
           green:=random(256);
           blue:=random(256);
           write('(',red,',',green,',',blue,')  ');
         end;
      writeln;
    end;
    readln;
end.

program colors;
uses crt, GraphABC;
const n = 6;
      w=25;        //Øèðèíà ÿ÷åéêè
      w1=1;        //Èíòåðâàëìåæäó ÿ÷åéêàìè
      x0=0;        //Ïîçèöèÿ x íà÷àëà
      y0=0;        //Ïîçèöèÿ y íà÷àëà
var i, j: integer;
begin
Randomize;
for i:=0 to n do begin
    for j:=0 to n do begin
        SetBrushColor(RGB(Random(256),Random(256),Random(256)));  //Óñòàíîâêà öâåòà êèñòè
        FillRect(x0+i*w,y0+j*w,x0+(i+1)*w-w1,y0+(j+1)*w-w1);      //Çàêðàøèâàíèå ÿ÷ååê âûáðàííûì öâåòîì
    end;
end;
end.