Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
Пуск-Панель управления-Мышь- Свойства я думаю так
16 цветов = 2^4 - 4 бита на пиксель
Если ничего в рисунки не менялось кроме глубины цвета, то очевидно что
глубина цвета была 4*2 = 8 бит на пиксель
Кол-во цветов в палитре = 2^8 = 256 цветов
Ярлык? больше ничего в голову не лезет.