Среди трех точек с координатами (x1,y1) (x2,), определить количетво точек, лежащих во второй четверти и вывести на экран их координаты, плз , инфа, паскаль

count := 0; if x1<0 and y1>0 then begin Inc(Count); Write(x1,' ',y1,' '); end; if x2<0 and y2>0 then begin Inc(Count); Write(x2,' ',y2,' '); end; if x3<0 and y3>0 then begin Inc(Count); Write(x3,' ',y3,' '); end; WriteLn; WriteLn(Count);