{ Какая точка (A или B) ближе к началу координат? }
var x1, y1, x2, y2, d1, d2: real;
begin
writeln('Введите A(x1, y1) и B(x2, y2):');
readln(x1, y1, x2, y2);
d1 := sqrt(sqr(y1) + sqr(x1));
d2 := sqrt(sqr(y2) + sqr(x2));
if d1 < d2 then writeln('Точка A ближе')
else if d1 > d2 then writeln('Точка B ближе')
else writeln('Одинаково');
end.
