Определить номер координатной четверти - Паскаль

Даны координаты точки, не лежащей на координатных осях. Написать программу, которая выводи номер координатной четверти, в которой расположена данная точка.

program tochka;
const s=' четверть';
var x,y:real;
begin
writeln('введите координаты точки ');
readln(x,y);
if x > 0 then
 if y > 0 then writeln (1,s)
 else if y < 0 then writeln(4,s);
if x < 0 then
 if y > 0 then writeln (2,s)
 else if y < 0 then writeln(3,s);
if (x=0) or (y=0) then writeln ('не соответствие условию задачи!');
writeln;
end.