Даны две точки А(х1,у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат — Pascal(Паскаль)

var
  x1, x2, y1, y2: real;

begin
  readln(x1, y1);
  readln(x2, y2);
  if (((x1 * x1) + (y1 * y1)) > ((x2 * x2) + (y2 * y2))) then
    writeln('A blije')
  else if (((x1 * x1) + (y1 * y1)) < ((x2 * x2) + (y2 * y2))) then
    writeln('B blije')
  else
    writeln('Odnakovoe rasstoyanie');

end.