Яркость-1 Красный-0 Зеленый-1 Голубой-1 Какой цвет ?

ответ: Скорее всего это черный.

PascalABC.NET 3.3 под девизом
"Памяти наших дедов посвящается..."

const
  n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,SumDiag,k:integer;
  p:real;

begin
  Writeln('*** Исходная матрица ***');
  Randomize;
  SumDiag:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(199)-99;
      if i=j then SumDiag:=SumDiag+a[i,j];
      Write(a[i,j]:4)
      end;
    Writeln
    end;
  for i:=1 to 4*n do Write('-');
  Writeln;
  Writeln('Сумма элементов на главной диагонали ',SumDiag);
  p:=SumDiag/15;
  k:=0;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<p then k:=k+1;
  Writeln('Искомое количество элементов ',k)
end.

Пример
*** Исходная матрица ***
  95  37  30  21  83 -99  48 -40  49 -19
 -66 -82  88 -24  70  14 -88  11  60  14
 -72 -80  90  25  68  23  91  66 -54  52
  33  16  25 -72  85  58 -39  44   8 -29
   8  78 -79  51  50 -61 -13 -87  87  66
  63 -45  94 -48  59  76  46 -94  53 -40
 -90  81 -85  96  47  18  -8  61 -10 -87
 -47 -33 -97 -10 -93 -51  98 -60  74  30
 -63  78  79 -21  89 -21  21 -26 -31 -91
 -88 -45  91 -51 -39  26  64 -75 -96 -67

Сумма элементов на главной диагонали -9
Искомое количество элементов 46

//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.