Принадлежит ли точка к заштрихованной области? - PascalABC.NET

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

Составьте, пожалуйста, программу, которая выяснит, принадлежит ли точка к заштрихованной области. Заранее спасибо. программу необходимо написать в паскалеABC

Решение задачи: «Принадлежит ли точка к заштрихованной области?»

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

if(x>=0)and(x<=1)and(y>=0)and(y<=x) then write('принадлежит')
else write('не принадлежит');

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

x - переменная, значение которой проверяется на принадлежность к заштрихованной области.
y - переменная, значение которой также проверяется на принадлежность к заштрихованной области.
0 - значение переменной x, при котором она не принадлежит к заштрихованной области.
1 - значение переменной x, при котором она принадлежит к заштрихованной области.
0 - значение переменной y, при котором она не принадлежит к заштрихованной области.
1 - значение переменной y, при котором она принадлежит к заштрихованной области.
if(x>=0)and(x<=1)and(y>=0)and(y<=x) then write('принадлежит') - условие, при котором точка принадлежит к заштрихованной области.
else write('не принадлежит') - действие, которое выполняется, если точка не принадлежит к заштрихованной области.