Вводятся координаты точки на плоскости x и y. Вывести TRUE, когда точка (x, y) находится в первой четверти (координатной плоскости), и FALSE в противном случае.

begin

 var (x, y) := readinteger2;

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

   write('TRUE')

 else

   write('FALSE')

end.

Объяснение:

begin  // Начало программы

 var (x, y) := readinteger2;  // Вводим координаты x, y с клавиатуры

 if (x > 0) and (y > 0) then  // Если (x > 0 И y > 0), тогда

   write('TRUE') // Выводим TRUE

 else  // Иначе

   write('FALSE')  // Выводим FALSE

end. // Конец программы