Цикл с параметром решить задачу
1-2/3х+3/4х*2-4/5х*3+...+11/12х*10 при х

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.Из условия задачи «Для кодирования секретного сообщения используются 12
специальных значков-символов. При этом символы кодируются одним и тем же минимально возможным количеством бит. следует, что для кодирования используется алфавит, мощность которого равна N=12 (все символы алфавита равнозначны). Тогда информационный вес символов одинаков и вычисляется по формуле Хартли i=log212=4 бита. Тогда информационный объем сообщения, согласно алфавитному подходу, измеряется по формуле V=i*k. Значение i мы уже нашли, а k по условию задачи равно 256.
Получаем: V=4 (бита)×256 (символов) =1024 (бита) = 128 (байта).

2.всего используется 26 букв + 10 цифр = 36 символов для кодирования 36 вариантов необходимо использовать 6 бит, так как 2^5=32<36<2^6=64, т.е. пяти бит не хватит (они позволяют кодировать только 32 варианта), а шести уже достаточно таким образом, на каждый символ нужно 6 бит (минимально возможное количество бит).
полный номер содержит 7 символов, каждый по 6 бит, поэтому на номер требуется 6 x 7 = 42 бита.
По условию каждый номер кодируется целым числом байт (в каждом байте – 8 бит), поэтому требуется 6 байт на номер (5x8=40<42<6x8=48), пяти байтов не хватает, а шесть – минимально возможное количество на 20 номеров нужно выделить 20x6=120 байт.
ответ: 120 байт.

3. Всего клеток 8х8 = 64. Для кодирования 1 клетки необходимо 6 бит (2^6=64). В записи решения будет описано 12 клеток (11 ходов+начальная позиция). Объем информации записи 12х6 = 72 бита = 72:8 = 9 байт.
ответ: 9 байт.

4. 76 символов = 76 байт, 76 байт * 8 = 608 бит.
ответ: 608 бит.

5. на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов

6. 4096 = 1024⋅4, 16 бит = 2 байта, 8 бит = 1 байт
Было в Unicode: 212 * 2 = 213 байт
Стало в Windows-1251: 212 байт.

Объём файла уменьшился на 213 байт - 212 байт = 212 байт = 4 Кбайта

ответ: 4.