9. Переменной k присвоить номер четверти плоскости, в которой находится точка с координатами (x,y)(xy не равно 0). Вывести на экран номер четверти.

program glghn;var k,x,y:integer;beginreadln(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);end.