M11 official:
построить программу, которая вводит координаты точки (x, y) и определяет, попадает ли точка в заштрихованную область на рисунке. Попадание на границу области считать попаданием в область. Помогите пожалуйста.

program laba;var xPos, {В данной переменной храним позицию по оси X} yPos {А в этой по оси Y} : real; {Переменные вещественного типа, что бы можно было вводить дробные значения}

begin Write('Enter x position: '); Readln(xPos); {Вводим переменную по X} Write('Enter y position: '); Readln(yPos); {И по Y}

if (xPos <= 0) and (yPos <= 1) and (yPos >= -1) {Если переменная находится в пределах прямоугольной области, что слева от оси Oy} then begin Write('Point in area.'); {Тогда всё окей, мы попали в заштрихованную зону и выведем ответ} end

else {если же не попали, проверим другую} begin if (xPos*xPos + yPos*yPos <= 1) {Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy} then begin Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение} end else begin Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем} end end

end.

program ideone;var   xPos, {В данной переменной храним позицию по оси X}   yPos  {А в этой по оси Y}      : real; {Переменные вещественного типа, что бы можно было вводить дробные значения}   begin   Write('Enter x position: ');   Readln(xPos); {Вводим переменную по X}   Write('Enter y position: ');   Readln(yPos); {И по Y}   if (xPos <= 0) and (yPos <= 1) and (yPos >= -1) {Если переменная находится в пределах прямоугольной области, что слева от оси Oy}   then      begin          Write('Point in area.'); {Тогда всё окей, мы попали в заштрихованную зону и выведем ответ}      end   else {если же не попали, проверим другую}      begin      if (xPos*xPos + yPos*yPos <= 1) {Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy}         then            begin               Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение}            end         else            begin               Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем}            end    endend.