A = N^i
N - количество букв в алфавите( бит принимает всего два значения, например: один и ноль, поэтому N = 2);
i - длина слова (i = 1, 2, 3, 4)
A - количество слов заданной длины(в данном случае, количество цветов, то есть A - количество комбинаций)
A = 2^1 = 2 цвета
A = 2^2 = 4 цвета
A = 2^3 = 8 цветов
A = 2^4 = 16 цветов
Var m : array[1..50] of Integer;
i,max : Integer;
Begin
max:=0;
For i:=1 to 50 do
Begin
m[i]:=Random(100);
if m[i]>max then max:=m[i];
end;
Writeln(max);
end.