ПОМОГИТЕ ПОЖАЛУЙСТА СФОРМУЛИРОВАТЬ УСЛОВИЕ ЗАДАЧИ var x1, y1, x2, y2, r1, r2: real; begin...

Question

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

Answer 1

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

Answer 2

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

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