Написать программу на Turbo Pascale.

[SiNiSTeR19]

Для данной области составить линейную программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области, и false-в противном случае:

[Stilet]

const x=0,y=0;
begin
 write(
   ((x>0) and (x<8) and (y=7)) or
   ((x=4) and (y>2) and (y<8)) 
 );readln;
end.

Если не ошибаюсь.

[Serge_Bliznykov]

я бы так написал:

var x,y : real;
begin
  ReadLn(x,y);
  WriteLn( ((x>=1) and (x<=7) and (y>=6) and (y<=8))
               or
              ((x>=3) and (x<=5) and (y>=2) and (y<=6)) )
end.