Встречено 'else', а ожидался оператор. program qq; var x,y: integer; begin writeln('введите число x'); readln(x); writeln('введите число y'); readln(y); if (x> =0) and (x< =2) and (y> =0) and (y< =1) then writeln ('входит'); else (x< 0) and (x> 2) and (y< 0) and (y> 1) then writeln ('не входит'); end.
if (x >= 0) and (...) then writeln('Входит')
else writeln('Не входит');
То есть, после writeln('Входит') не должно быть точки с запятой.
Только тогда в блоке "else" не нужны условия ("else (...) and (...) ..." выдаст ошибку компиляции).
Ещё можно "else" заменить на "if", и получится два раздельных if-блока. Скорее всего, это и имел в виду компилятор.