PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (x, y) := ReadReal2('Введите x и y:');
((x >= 0) and ((y > 0) and (x * x + y * y <= 16) or </p>
(y <= 0) and (x * x + y * y <= 25))).Println</p>
end.