Баззы данных.подробно описать структуру.

var
  a, b: integer;
begin
  readln(a, b);
  writeln(System.Math.Sign(a) = System.Math.Sign(b) ? 'Да' : 'Нет');
end.

Или  ̶п̶р̶и̶м̶и̶т̶и̶в̶н̶е̶е̶  проще:
var
  a, b: integer;
begin
  readln(a, b);
  if (a > 0) then a := 1;
  if (a = 0) then a := 0;
  if (a < 0) then a := -1;
  if (b > 0) then b := 1;
  if (b = 0) then b := 0;
  if (b < 0) then b := -1;
  if (a = b) then
    writeln('Yes')
  else
    writeln('No');
end.

Немного  ̶у̶п̶р̶о̶̶щ̶̶ё̶н̶н̶ы̶й̶  оптимизированный вариант:
var
  a, b: integer;
begin
  readln(a, b);
  if (a > 0) then 
    a := 1
  else
    if (a = 0) then
      a := 0
    else
      a := -1;
  if (b > 0) then 
    b := 1
  else
     if (b = 0) then 
       b := 0
     else
       b := -1;
  if (a = b) then
    writeln('Yes')
  else
    writeln('No');
end.

1. Т.к. все шары разные вероятность того, что вытащат  любой из них равна одной восьмой. Получается, что ровно 3 бита информации несет сообщение, о том что достали красный шар.

2. 512 символов:16 символичный алфавит=32 бита = 4 байта 

512x4=2048 бит

2048 бит = 256 байт

256 байт = 0,25 Кбайта

5.(1:16)*1024*1024*8:4=131072 символов

4.1/25 Мб = 1/25*220*23 = 218 бит это 1/32 Мб в битах

218/8 = 218/23 = 215 = 32768 символов.

6. 1/29М6 = 1:29*220*23 = 214 бит это 1/512 Мбайта в битах

Найдем объем 1 символа  214/2048 = 214/211 = 23 = 8 бит, отсюда получаем что 

28 = 256 символов