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

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.// PascalABC.NET 3.0, сборка 1088var  x1,x2,y1,y2,r1,r2:real;begin  Write('Введите координаты первой точки: '); Read(x1,y1);  Write('Введите координаты второй точки: '); Read(x2,y2);  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);  if r1>r2 then Writeln('Ближе вторая точка')  else    if r1<r2 then Writeln('Ближе первая точка')    else Writeln('Точки равноудалены')end.Тестовое решение:Введите координаты первой точки: 16.3 -11.7Введите координаты второй точки: 15.8 12Ближе вторая точка