# Given the coordinates of two points on the plane, it is required to determine whether

**Given the coordinates of two points on the plane, it is required to determine whether they lie in the same coordinate quarter or not (all coordinates are nonzero). pascal program**

program zz1;

var x1, x2, y1, y2: real; // set variables of non-integer type

begin

write (‘enter the coordinates of the first point’); // enter the coordinates of the first point from the keyboard

read (x1, y1);

write (‘enter the coordinates of the second point’); // enter the coordinates of the second point from the keyboard

read (x2, y2);

if (x1 * x2> 0) and (y1 * y2> 0) // check if the product of pairs of coordinates gives a positive number in the answer, then

then write (‘in one coordinate quarter’) // print one response

else write (‘not in one coordinate quarter’); // otherwise, print another answer

end.