Определить, что данные числа являются координатами точки лежащей в первой координатной четверти - Pascal ABC

Формулировка задачи:

Задание: Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE, - в противном случае (использовать условный оператор нельзя). данные числа x y являются координатами точки лежащей в первой координатной четверти

Решение задачи: «Определить, что данные числа являются координатами точки лежащей в первой координатной четверти»

Листинг программы

var t:boolean;
     x,y:real;
begin
............
t:=(x>0)and(y>0);
........

Объяснение кода листинга программы

Переменная t инициализируется значением false.
Переменные x и y инициализируются значениями real.
Выполняется условие t=(x>0)and(y>0), где оператор and логически связывает два условия.
Результат выполнения условия сохраняется в переменной t.
Код продолжается, пока не будет выполнено условие t=(x>0)and(y>0).