даны координаты точки. Выяснить лежит ли эта точка в третьей координатной четверти. помогите плиз

Чтобы точка находилась в III координатной четверти необходимо, чтобы координата X была меньше 0 и координата Y была меньше  0.Например://Pascalvar x,y:real;begin  readln(x,y);  if (x<0) and (y<0) then writeln('Точка в III четверти')     else writeln('Не попала в III четверть');end.