PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите координаты точки х у:');
if (x<0) and (y<0) then Writeln('Точка принадлежит III четверти')<br> else Writeln('Точка не принадлежит III четверти')
end.
Пример
Введите координаты точки х у: -3.16 5
Точка не принадлежит III четверти