Составить программу , используя условный операторНажмите для просмотра прикрепленного файла

Покажите что не получаеться, в чем проблема и что подразумевается под закрашенными облостями? Вывести множество значений? Вывести те точки которые попадают в данные области?Более точно условие опишите

вот первую решила с уравнением, а вторую не знаю даже как

Ну вот это уже что-то)))

Var
x,y: integer;
begin
x:=3;
y:=6;
if ((x-5>=0) and (y<=x) and (y-5>=0)) or ((x-5<=0) and (y>=x) and (y-5<=0)) then
  writeln('DA')
else
writeln('NET');
readln;
end.

Вроде работает))))

МОжно раскидать по нескольким условиям,если есть вопросы,спрашивайте...

Алексей, спасибо большое !!!!^^