Айсулу" Менин суикти калам " такырыбына матиндик процессорда дома жасады . Айсулуга блет параметрлерин орнатуга сиздин комегиниз керек . Сойлемди аякданыз
Бетти китап туринде орнату ушин : беттин орналасуы -
Бетти номирлеу ушин: киристуру -
Бет олшемдерин орнату ушин : бетти орналасуы-

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.

Program z3;  Var y: array [1..15] of real;      g: array [1..20] of real;      i,d, a,b: integer; sum, sum_2: real;Begin  writeln('Введите оплату труда за день'); read(d);  a:= 0;  b:= 0;  for i := 1 to 15 do  begin    y[i] := random (30);    if (y[i] < 10) then a:= a + 1;    y[i] := y[i] * d * 0.8;  end;      for i:=1 to 20 do    g[i] := random (30);    if (g[i] < 10) then b:= b + 1;    g[i] := g[i] * d * 0.8;    for i:=1 to 15 do  begin    writeln('Сотрудник y_',i,' - ',y[i]);    sum:= sum + y[i];  end;  writeln;  writeln('Сумма отдела y - ', sum);  writeln;  for i:=1 to 20 do  begin    writeln('Сотрудник g_',i,' - ',g[i]);    sum_2:= sum_2 + g[i];  end;  writeln;  writeln('Сумма отдела g - ', sum_2);  writeln;      writeln('В отделе y ', a, ' сотрудников работало меньше 10 дней');  writeln;  writeln('В отделе g ', b, ' сотрудников работало меньше 10 дней');  End.