В общем, задачу я почти решил, но осталось описать правую сторону треугольника.
Вот блин не догоняю как ето сделать. Помогите !!!!!

Константа r=4, высота и основание треугольника равны r.
X и Y вводятся с клавиатуры.

if (x<=0) and (x>=r) and (y<=0) and (y<=r) and ((sqr(x)+sqr(y)<=sqr(r))  {описание окружности, 2-я четверть, её нет на рисунке}
then writeln('точка попадает в закрашенную область')
else
if (x>=0) and (x<=r) and (y>=0) and (y<=r) and (y<=-2x) {вот тут должо быть описание правой стороны}
then writeln('точка попадает в закрашенную область')
else 
writeln('очка не попадает в закрашенную область');

Белые х ничего не значать(просто я рисунок не смог выложить) .
xxxxxxxxxxy
xxxxxxxxxx|
xxxxxxxxxx|
xxxxxxxxxx|
xxxxxxxxxx|
_________|___________x
xxxxxxxxxx|\xxxxxx/
xxxxxxxxxx|x\xxxx/
xxxxxxxxxx|xx\xx/
xxxxxxxxxx|xxx\/
xxxxxxxxxx|
xxxxxxxxxx|

описание окружности??

где здесь треугольник?? что такое "правая сторона треугольника"?

то, что на рисунке описывается 3 уравнениями:
y=ax-b; y=-ax; y=0

"y=ax-b" - а чему равно "b" (возможно это то что мне нужно).

Правая сторона выделена красным. Надо как бы закрыть треугольник. Точка должна в него попадать, в зависимости от координат x и y введённых с клавиатуры.

xxxxxxxxxxy
xxxxxxxxxx|
xxxxxxxxxx|
xxxxxxxxxx|
xxxxxxxxxx|
_________|___________x
xxxxxxxxxx|\xxxxxx/
xxxxxxxxxx|x\xxxx/
xxxxxxxxxx|xx\xx/
xxxxxxxxxx|xxx\/
xxxxxxxxxx|
xxxxxxxxxx|

Добавлено через 9 мин.
Точно оно мне подходит , большое спасибо.