даны 2 точки а (х1;у1) и b(х2;у2) определить какая из точек находиться ближе к началу координат . записать на языке паскаль

program gt;var x1,x2,y1,y2:real;beginreadln(x1,y1,x2,y2);if(x1*x1+y1*y1)<(x2*x2+y2*y2)then writeln('первая точка ближе')elseif(x1*x1+y1*y1)>(x2*x2+y2*y2)then writeln('вторая точка ближе')else writeln('одинаково расположены');end.