PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите координаяты x и y точки:');
Writeln((x<0) and (y>0) and (y0) and (y<0) and (y>x-1))
end.
Примеры
Введите координаяты x и y точки: 0.5 -0.2
True
Введите координаяты x и y точки: -2 0.3
False