точка с координатами (x,y) расположена на окружности с центром в начале координат, превосходит ли длина окружности заданную величину А. информатика помогите кто может.

var x, y, a, r, len: real;beginwriteln('Введите координаты точки');read(x, y);writeln('Введите величину A');read(a);r := sqrt(x * x + y * y);len := 2 * PI * r;writeln('Длина окружности: ', len:0:4);if (len > a) then  writeln('Длина окружности превосходит A')else  writeln('Длина окружности не превосходит A');end.