Var x, y: real;║
begin - Write('Введите через пробел координаты точки (x,y): '); Readln(x, y); Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))end.<br>var x, y: real;║
begin - Write('Введите через пробел координаты точки (x,y): '); Readln(x, y); Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))end.