Question

Даны две точки в плоской прямоугольной системе координат.

Answer 1

var x1, y1, x2, y2: real;
  c:char;

begin
  repeat
    read(c);
  until c='>';
  read(c);
  readln(x1,y1);
  repeat
    read(c);
  until c='>';
  read(c);
  readln(x2,y2);
  x1 := x1*x1 + y1*y1 - x2*x2 - y2*y2;
  if (x1 > 0) then
    writeln('2-я точка ближе')
  else if (x1 < 0) then
    writeln('1-я точка ближе')
  else
    writeln('Точки на одинаковом расстоянии')
end.