ПОМОГИТЕ ПОЖАЛУЙСТА Сконструировать УСЛОВИЕ ЗАДАЧИvar x1, y1, x2, y2, r1, r2:

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