Командами є такі повідомлення 1. читай 2. до будь чемним 4. закрити файл

Объяснение:

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.

number = int(input())

last_number = 0

even = 0

odd = 0

while (number > 0):

   last_number = number % 10

   if (last_number % 2 == 0):

       even += 1

   else:

       odd += 1

   number //= 10

print("Even = ", even, "Odd = ", odd)

Объяснение:

number = int(input())  // Объявление + ввод переменной

last_number = 0  // Переменная для хранения последней цифры числа

even = 0  // Количество четных

odd = 0  // Количество нечетных

while (number > 0):  // Пока число > 0

   last_number = number % 10  // Получаем последнюю цифру числа

   if (last_number % 2 == 0):  // Если цифра делится на 2 без остатка

       even += 1  // В переменную even делаем + 1

   else:  // Иначе

       odd += 1  // В переменную odd делаем + 1

   number //= 10  // Удаляем последнюю цифру числа

print("Even = ", even, "Odd = ", odd) // Вывод