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

program psck;varx,y : integer;begin read(x,y); if (y>0) and (((x<0) and (x*x+y*y<36)) or ((x*x+y*y>9) and (x*x+y*y<36))) then write('true') else write('false');end.