Даны координаты точки. определить, находиться ли она в iii четверти

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите координаты точки х у:');
  if (x<0) and (y<0) then Writeln('Точка принадлежит III четверти')
  else Writeln('Точка не принадлежит III четверти')
end.

Пример
Введите координаты точки х у: -3.16 5
Точка не принадлежит III четверти