Лебедь & (рак | щука) 3400 лебедь & рак 1300 лебедь&щука 2100 Сколько будет в лебедь&рак&щука?

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

// PascalABC.NET 3.0, сборка 1088
var
  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
Ближе вторая точка

1 кодирование
2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д.
3. нахождение информации в глобальной сети, на сервере и т. д.
4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 
5. К математическому типу и текстовому.
6. Они могут быть сделаны на разных текстовых редакторах.
7. По алфавиту - фамилии в школьном журнале, файлы, документы..
В порядке убывания - цифры, числа...
в хронологической последовательности -  даты, события, файлы, документы.