Даны координаты точки. Определить, находиться ли она в 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 четверти