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

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