Составьте программу, которая печатает true, если точка с координатами

Var x, y: real; ║

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

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.