Составить программу в паскаль

Question

Составить программу в паскаль

Данил Селиванов Ученик (83), открыт 1 день назад

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

Answer 1

 var x, y, r: real;
begin
  read(x, y);
  r := sqr(x) + sqr(y);
  if (y >= 0) and (r <= 36) and ((x <= 0) or (r >= 9)) then
    write('yes')
  else
    write('no')
end.

Answer 2

Примерно так будет

 ReadLn(X, Y);  
WriteLn((Sqr(x)+Sqr(Y)<=36.0) and ((Y>=0) and (X<=0)) or ((Sqr(x)+Sqr(Y)>=9.0) and (x>0)));