M11 official:построить программку, которая вводит координаты точки (x, y) и определяет,

паскаль

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 lt;= 0) and (yPos lt;= 1) and (yPos gt;= -1) Если переменная находится в границах прямоугольной области, что слева от оси Oy   then      begin          Write('Point in area.'); Тогда всё окей, мы попали в заштрихованную зону и выведем ответ      end   else если же не попали, проверим другую      begin      if (xPos*xPos + yPos*yPos lt;= 1) Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy         then            begin               Write('Point in area.'); Если попали, выведем об этом соответствующее сообщение            end         else            begin               Write('Point out of area.'); Если же не попали, то печаль неудача, всё плохо, так и скажем            end    endend.