Программа, которая вычисляет принадлежит ли данная точка «заштрихованной» области.

Program OAIP_L01; 
Var 
a,b : Real; {координаты точки} 
y : Real; {расчетное значение функции} 
Begin 
writeln(‘Введите координаты точки’); {Выводим пояснение} 
write(‘по X =’); readln(a); {Вводим a} 
write(‘по Y =’); readln(b); {Вводим b} 
y:=2*a+1; {Рассчитываем значение Y} 
if (a > 0) and (y = b) {Проверяем, попадает ли значение } 
then writeln(‘да, принадлежит’) {в интервал от 0 до + ∞ } 
else writeln(‘нет, не принадлежит’) {и совпадают ли } 
{расчетное и введенное значения функции} 
End.Пример но надо менять Program OAIP_L01; 
Var 
a,b : Real; {координаты точки} 
y : Real; {расчетное значение функции} 
Begin 
writeln(‘Введите координаты точки’); {Выводим пояснение} 
write(‘по X =’); readln(a); {Вводим a} 
write(‘по Y =’); readln(b); {Вводим b} 
y:=2*a+1; {Рассчитываем значение Y} 
if (a > 0) and (y = b) {Проверяем, попадает ли значение } 
then writeln(‘да, принадлежит’) {в интервал от 0 до + ∞ } 
else writeln(‘нет, не принадлежит’) {и совпадают ли } 
{расчетное и введенное значения функции} 
End.

Program OAIP_L01;
Var r,a,b : Real; {координаты точки}
Begin
write('Введите радиус R=');
readln(r);
writeln('Введите координаты точки:'); {Выводим пояснение}
write('по X ='); readln(a); {Вводим a}
write('по Y ='); readln(b); {Вводим b}
if((a>=-r)and(a<=0)and((b>=-r)and(b<=a))or((b>=0)and(a*a+b*b<=r*r)))
or((a>0)and(a<=r)and(a*a+b*b<=r*r)) {Проверяем, попадает ли точка}
then writeln('да, принадлежит')
else writeln('нет, не принадлежит')
End.