Помогите решить задачку в паскале ! Пожалуйста !
Составить программу на языке Pascal для решения следующей логической задачи. 
По графику нужно написать задачу и решение, график прилагается.

Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной областиРешение:var  x, y: real;begin  readln(x, y);  if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then    write('не ');  writeln('принадлежит');end.