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

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