5й пожалуйста). надобно ,что бы программа писала true ,если точка лежит

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (x, y) := ReadReal2('Введите x и y:');

 ((x gt;= 0) and ((y gt; 0) and (x * x + y * y lt;= 16) or

     (y lt;= 0) and (x * x + y * y lt;= 25))).Println

end.