1) какой то вопрос неполный, ну может комнатами))
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
2мб? Мало как то а так... Теоретически это зависит от модели и производителя, наверное в районе 5к цветов.