Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
Автомобиль черного цвета равен 8 бит = 256
<span>красный автомобиль равно 6 бит =</span> 64
белых автомобилей 36
256-64+36=156
Ответ=156
Гордость, жадность, глупость, упрямство, тупость, неумение, выпендрежничество, и т.д