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

Пусть известны координаты двух точек на плоскости А (х1, y1) и В (x2, y2). Расстояние от начала координат (0,0) и точки на плоскости рассчитывается по формуле:

OA=корень (x1^2+y1^2)

OВ=корень (x2^2+y2^2)

Чем дальше находится точка от начала координат, тем больше расстояние (длина соответствующего отрезка).

Program Z1;

Var x1, y1, x2, y2: real;

begin

Readln (x1, y1);

Readln (x1, y1);

if sqrt (x1 * x1 + y1*y1) > sqrt (x2 * x2 + y2 * y2) then writeln ('Точка В ближе к началу координат');

if sqrt (x1 * x1 + y1*y1)
end.