ПОМОГИТЕ ПОЖАЛУЙСТА СФОРМУЛИРОВАТЬ УСЛОВИЕ ЗАДАЧИ
var x1, y1, x2, y2, r1, r2: real;
begin
write('Введите координаты первой и второй точек:');
readln(x1, y1, x2, y2);
r1:= sqrt(x1*x1+y1*y1);
r2:= sqrt(x2*x2+y2*y2);
if r1=r2
thenwriteln('Точки находятся на одинаковом расстоянии от начала координат')
elseif r1>r2
thenwriteln('Точка B находится ближе к началу координат')
elsewriteln('Точка A находится ближе к началу координат')
end.

Даны координаты двух точек A и B соответственно. По заданным координатам определите, какая точка находится ближе к началу координат. Пример входных данных:1 1 2 2Пример выходных данных:Точка A находится ближе к началу координат

Определите, какая из двух точек A и B находится ближе к началу координат.Если точки находятся на одинаковом расстоянии, вывести 'Точки A и B находятся на одинаковом расстоянии от начала координат'.