ПОМОГИТЕ ПОЖАЛУЙСТА СФОРМУЛИРОВАТЬ УСЛОВИЕ ЗАДАЧИ
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.