Сколько ячеек входит в диапазон

Объяснение:

program graphic;

var

   x, y: real;

   underLine, underLog, inCircle: boolean;

begin

 writeln('введите Х:');

 readln(x);

 writeln('введите У:');

 readln(y);

 //проверяем, что попали в первую четверть

 if (x >= 0) and (y >= 0) then

 begin

   underLine := (y <= -x + 2);

   underLog := (exp(y) <= x);

   inCircle := (x*x + y*y <= 9);

   if inCircle and (underLog xor underLine) then

       writeln('внутри области')

   else

       writeln('вне области');

 end

 else

   writeln('вне области');

end.

UPD

если нужно записать это одним оператором, то это будет выглядеть так

program graphic_v2;

var

   x, y: real;

begin

 writeln('введите Х:');

 readln(x);

 writeln('введите У:');

 readln(y);

 if (x >= 0) and (y >= 0) and (x*x + y*y <= 9) and ((y <= -x + 2) xor (exp(y) <= x)) then

     writeln('внутри')

 else

     writeln('снаружи');

end.

using System;

namespace kp9p_pr_8_zad_1

{

   class Program

   {

       enum Yay  

       {

           min = 0,

           krit = 72,

           max = 100

       }

       static void Main(string[] args)

       {

           Yay t;

           t = Yay.min;

           Console.WriteLine("\nМнимальная температура: {0}", (int)t);

           t = Yay.krit;

           Console.WriteLine("\nКритическая температура: {0}", (int)t);

           t = Yay.max;

           Console.WriteLine("\nМаксимальная температура: {0}", (int)t);  

       }  

   }  

}