Сформулировать условие 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.