Program P1;
{ Лабораторная работа №2}
uses crt;
var
x : real;
y : real;
begin
clrscr;
write(Введите x: );
readln(x);
write(Введите y: );
readln(y);
if (y<=sqrt(9-(sqr(x+3)))) and (x>=-3) and (y>=0) and (x<=0) and (y<=3)or (y>=-sqrt(9-(sqr(x+3)))) and (x<=3) and (y<=0) and (x>=0) and (y>=-3)then
writeln(Значение принадлежит области функции);
else
writeln(Значение не принадлежит области функции);
readkey;
end.
Program1.pas(21) : Встречено else, а ожидался оператор????????

Нет. Зачем оператор? Else ─ иначе.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.