Помогите решить через эксель макрос. (if_then_else)  Даны две точки А(x1, y1) и В(x2, y2). Определить, какая из точек ближе к началу координат. 

Program gt;

var x1,x2,y1,y2:real;

begin

readln(x1,y1,x2,y2);

if(x1*x1+y1*y1)<(x2*x2+y2*y2)then writeln('первая точка ближе')else

if(x1*x1+y1*y1)>(x2*x2+y2*y2)then writeln('вторая точка ближе')else writeln('одинаково расположены');

end.