Написать программку на Pascal, попадает ли точка с данными координатами в

Program task2;
var R, x, y : real;
begin
    writeln('Введите значения R, x, y:');
    read(R, x, y);
    if (((x gt;= 0) and (y gt;= 0) and (x * x + y * y lt;= R * R)) or ((x lt; 0) and (y lt; 0) and (y gt;= -x - R))) then
        writeln('Точка с координатами x: ', x, ', y: ', y, ' принадлежит заданной области.')
    else
        writeln('Точка с координатами x: ', x, ', y: ', y, ' не принадлежит данной области.');
end.