Составить программу, по которой выведется значение true, если точка с заданными координатами (x,y) лежит внутри заштрихованной области и false – в противном случае.

var  r :integer;  x, y :real;begin  R:= 6;  readln(x,y);  if (x > 0) and (y > 0) = false then    if sqr(x) + sqr(y) < sqr(r) then      writeln('true')    else      writeln('false');  if (x > 0) and (y > 0) = true then    writeln('false');end.

var  x,y:integer;  f:boolean;beginreadln(x,y);f:=false;if sqr(x)+sqr(y)<36 then f:=true;if (x>0) and (y>0) then f:=false;writeln('Ответ: ',f)end.