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

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

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write('Введите координаты первой точки: '); Read(x1,y1);
  Write('Введите координаты 2-ой точки: '); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1gt;r2 then Writeln('Ближе вторая точка')
  else
    if r1lt;r2 then Writeln('Поближе 1-ая точка')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты 2-ой точки: 15.8 12
Ближе 2-ая точка