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

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.