Вводятся координаты x y множество точек,последними вводятся значения x=0 y=0. определить,сколько точек будет расположено во второй четверти( написать программу для паскаля)

var

 x, y: real;

 k: integer;

begin

 k := 0;

 Read(x, y);

 while (x <> 0) or (y <> 0) do

 begin

   if (x < 0) and (y > 0) then

     k := k + 1;

   Read(x, y)  

 end;

 Writeln(k);

end.