Как это сделать в паскаль

Вычислить с помощью любого вычислительного метода с точностью не менее 0.001 точку пересечения эллипса с окружностью на рисунке заданного варианта (снизу рисунок). Далее программно вычислить центры окружности и эллипса и решить задачу попадания заданной точки на плоскости в закрашенные области A,B
Обеспечить повтор вычеслений после нажатия кнопки с помощью оператора goto
R=28 у окружности

у эллипса
A=31
B=19