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

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

У меня для примера рассматриваются точки (1, 1) и (2, 0) - первая точка ближе, (4, 8) и (1, 7) - вторая точка ближе, и (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 < 0: вывод "Первая точка ближе", нс
    при d > 0: вывод "Вторая точка ближе", нс
    иначе вывод "Точки на одинаковом расстоянии", нс
  все
кон