Определить, лежат ли точки в одной координатной четверти - PascalABC.NET

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

Даны координаты двух точек на плоскости, требуется определить, лежат ли они в одной координатной четверти или нет (все координаты отличны от нуля). Входные данные Вводятся 4 числа: координаты первой точки (x1, y1) и координаты второй точки (x2, y2). Выходные данные Программа должна вывести слово YES, если точки находятся в одной координатной четверти, в противном случае вывести слово NO. Примеры входные данные 3 3 5 1 выходные данные YES

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

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

if (x1*x2>0)and(y1*y2>0) then write('yes')
else write('no');

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

Открывается блок if.
Вычисляется произведение x1 и x2, и произведение y1 и y2.
Сравниваются полученные произведения.
Если оба произведения больше нуля, то выводится слово yes.
Если хотя бы одно из произведений равно нулю или меньше нуля, то выводится слово no.