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

я видел , думаю

он и -5 -1 тру выводит

Исправил

Спасибо большое, все вроде прекрасно работает :))

Удачи :)

Большое спасибо

var x,y,c,d:integer;beginreadln(x,y);if (((x*x+y*y)<=25) and (x>=0) and (x<=5) and (y>=0) and (y<=5))or ((-x-5<=y) and (x>=-5) and (x<=0) and (y<=0) and (y>=-5))or ((x+5>=y) and (x>=-5) and (x<=0) and (y>=0) and (y<=5))thenwriteln('true');end.

Область может быть описана как совокупность двух отдельных областей.var  x, y: real;  p, q: boolean;begin  Write('Введите через пробел координаты x,y: ');  Readln(x, y);  p := (x >= 0) and (y >= 0) and (sqr(x) + sqr(y) <= 25);  q := (x >= -5) and (x<=0) and (abs(y) <= x + 5);  Writeln(p or q)end.Примеры выполнения программы:Введите через пробел координаты x,y: -2 1TrueВведите через пробел координаты x,y: -4 2FalseВведите через пробел координаты x,y: 3 3TrueВведите через пробел координаты x,y: 6 3False