Помогите пожалуйста.Даны 2 точки:А(x1;y1) и В(x2;y2). Составить метод,определяющий

Поближе к началу координат та из точек, чей квадрат расстояния до начала координат x^2 + y^2 меньше. У меня описан метод что_ближе, который воспринимает доводами 4 вещественных числа - координаты точек и выводит сообщение о том, какая из точек ближе.

У меня для примера рассматриваются точки (1, 1) и (2, 0) - 1-ая точка ближе, (4, 8) и (1, 7) - 2-ая точка поближе, и (3, 4) и (0, 5) - точки на одинаковом расстоянии.

Вы сможете задавать значения и с клавиатуры, и записывать их сразу в текст программки, в зависимости от того, что нужно.

алг
нач
  что_поближе(1, 1, 2, 0)
  что_поближе(4, 8, 1, 7)
  что_поближе(3, 4, 0, 5)
кон
 
алг что_поближе(вещ x1, y1, x2, y2)
нач
  вещ d
  d := (x1*x1 + y1*y1) - (x2*x2 + y2*y2)
  выбор
    при d lt; 0: вывод "Первая точка поближе", нс
    при d gt; 0: вывод "Вторая точка ближе", нс
    по другому вывод "Точки на одинаковом расстоянии", нс
  все
кон