даны 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.