Помогите пожалуйста решить!!!!!!!! даны две точки в плоской прямоугольной системе координат. Напишите программу, определяющую, которая из точек находится ближе к началу координат!!! Пример входных данных Координаты 1-й точки ...

В основе лежит формула определения расстояния между двумя точками в прямоугольной системе координат, при этом одна из точек совпадает с началом системы координат. В этом случае искомое расстояние определяется по формуле: [latex]L= \sqrt{a_x^2+a_y^2} [/latex] Поскольку в задаче не ставится вопрос определения самого расстояния, достаточно для каждой точки вычислить значение L² и сравнить их. Окончательно задача сводится к нахождению минимального из значений [latex]a_x^2+a_y^2[/latex] по заданным координатам х и у. var   ax, ay, bx, by, rx, ry: real; begin   writeln('Введите координаты первой точки');   readln(ax, ay);   writeln('Введите координаты второй точки');   readln(bx, by);   rx := sqr(ax) + sqr(ay);   ry := sqr(bx) + sqr(by);   if rx < ry then writeln('Первая точка ближе')   else   if rx > ry then writeln('Вторая точка ближе')   else writeln('Обе точки равноудалены') end.