Question

Задание №10*Даны две точки плоскости. Определите, какая из них находится ближе к началу координат.

Answer 1

var
  a, b, c, d: real;

begin
  readln(a, b, c, d);
  if (sqrt(sqr(a) + sqr(b)) > sqrt(sqr(c) + sqr(d))) then
    writeln('Вторая ближе')
  else
    if (sqrt(sqr(a) + sqr(b)) = sqrt(sqr(c) + sqr(d))) then
      writeln('Одинаково');
end.