Точка с координатами (x, y) расположена на окружности с центром в начале координат, превосходит ли длина окружности величину A.

цикла while или repeat или for. Помогите пожалуйста.

, если точка совпадает с началом координат, '1', если точка лежит на координатных осях, и '2', если точка не лежит на координатных осях.
ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

к началу координат и вывести на экран соответсвующее сообщение
Составьте пожалуста программу в паскале

координатных осях, и "2", если точка не лежит на координатных осях.
Пример ввода:
6 0
Пример вывода:
1

перемещает­ся по плоскости; при опущенном — оставляет след в виде линии. Исполнитель может выполнять команды:
1) сместиться в точку (а, b), перемещающую Чертёжника из точки с координатами (х, у) в точку с координатами (а, b);
2) сместиться на вектор (а, b), перемещающий Чертёжника из точки с координатами (х, у) в точку с координатами (x+а, у+b).
Для повторения k раз некоторой последовательности команд используется запись:
нц к раз
команда1 команда2 командаЗ
кц
а) Определите, что будет нарисовано после выполнения Чертёжником программы:

поднять перо
сместиться в точку (3, 1)
опустить перо
сместиться на вектор (2, 0)
сместиться на вектор (1,1)
сместиться на вектор (-4, 0)
сместиться в точку (3,1)
поднять перо
сместиться на вектор (1,1)
опустить перо
сместиться на вектор (0, 3)
сместиться на вектор (1, -2)
сместиться на вектор (-1, -1)