Выполняем в тетради" стр. 132 - Выбери соответствующие определения для терминов (запишите в рабочей тетради: термин - верное определение) ​

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.

import tkinter as tk  

class Form(tk.Frame):

   def __init__(self, root):

       super().__init__(root)

       self.master = root

       self.build()

   def build(self):

       self.canv = tk.Canvas(self, width = 640, height=480)

       self.canv.pack()

       self._draw()

   def _draw(self):

       s_x = 10; s_y = 370;

       r = 5

       for itrtn in range(30):

           self.canv.create_oval(s_x - r, s_y - r, s_x + r, s_y + r, outline="blue", width=2)

           s_x += 10; s_y -= 5; r += 5;

if __name__ == '__main__':

   root = tk.Tk()

   root.title('test')

   root.geometry('640x480')

   form = Form(root)

   form.pack()

   root.mainloop()

Объяснение:

Рисует примерно то же самое. Логика отрисовки кругов описана в методе Form._draw. Координаты рисования эллипса для метода tkinter.Canvas.create_oval задаются по такой логике: Верхний левый угол (х, у), нижний правый угол (х, у) прямоугольника, в который помещён эллипс