program koor;

var
  x1, x2, y1, y2: integer;
  res1, res2: real;

begin
  Write('Введите через пробел координаты точки А:');
  Read(x1);
  Read(y1);
  WriteLn;
  Write('Введите через пробел координаты точки B:');
  Read(x2);
  Read(y2);
  WriteLn;

  res1 := sqrt(sqr(x1) + sqr(y1));
  res2 := sqrt(sqr(x2) + sqr(y2));

  if res1 = res2 then
  begin
    writeln('Точки A и B симметричны отностительно начала координат');
    ReadLn;
    exit;
  end;

  if res1 < res2 then
    writeln('Точка А находится ближе к началу координат.')
  else
    writeln('Точка B находится ближе к началу координат.');

  Readln;
end.