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.