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

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.