Какой четверти принадлежит точка с координатами (х; у)? на входе два числа х; у,на выходе название четверти нужно полное решение,

Program a1;
uses crt;
var x,y:integer;
begin
clrscr;
writeln (' v vedite dva chisla');
readln (x,y);
if x>0 and y>0 then writeln ('1');
if x<0 and y>0 then writeln ('2');
if x<0 and y<0 then writeln ('3');
if x>0 and y<0 then writeln ('4');
readln;
end.