Нужно решение в корзине лежат шары: 12 синих, 4 красных, 32 белых и 16 зеленых. всего 64 штуки. из корзины наугад вытащили один шар. шар какого цвета был вытащен из корзины, если известно, что сообщение о таком исходе несет наименьшее возможное в этом случае количество информации?

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.