кто может помочь в написании не большой программы в паскале 7?

Для задания (б) записать выражение, зависящее от координат точки X1 и Y1 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для исследуемой точки вычислить полученное выражение.


пример выполнения :
Записать выражение, зависящее от координат точки М (-0.8; 0.9) и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для исследуемой точки вычислить полученное выражение.



program lab1{ вариант №15.b};
const x0=-0.8;
y0=0.9;
r=1;
var pro:boolean;
begin
pro:=(x0*x0+y0*y0