Помогите с составлением программы на паскале

Question

Помогите с составлением программы на паскале

Никита Забайкин Ученик (152), на голосовании 3 дня назад

Даны две точки в плоской прямоугольной системе координат. Написать программу определяющую, которая из точек находится ближе к началу координат, написать код на Паскале

Answer 1

 var x1, y1, x2, y2: real;
begin
  read(x1, y1, x2, y2);
  if sqr(x1) + sqr(y1) < sqr(x2) + sqr(y2) then
    write('first')
  else if sqr(x1) + sqr(y1) > sqr(x2) + sqr(y2) then
    write('second')
  else
    write('equally')
end.