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+ and (x> =-3) and (y> =0) and (x< =0) and (y< =3)or (y> =-sqrt(9-(sqr(x+ and (x< =3) and (y< =0) and (x> =0) and (y> =-3)then writeln('значение принадлежит области функции'); else writeln('значение не принадлежит области функции'); readkey; end. program1.pas(21) : встречено 'else', а ожидался
