Даны координаты двух точек на плоскости, нужно найти, лежат ли они

var x1,y1,x2,y2: real; begin read(x1,y1,x2,y2); if (x1*x2gt;0)and(y1*y2gt;0) then write(yes) else write(no); end. Примеры входные данные 3 3 5 1 выходные данные yes

program zz1;

var x1,x2,y1,y2:real; // задаем переменные не целого типа

begin

write( введите координаты первой точки ); // вводим с клавиатуры координаты первой точки

read(x1,y1);

write( введите координаты 2-ой точки ); // вводим с клавиатуры координаты 2-ой точки

read(x2,y2);

if (x1 * x2 gt; 0) and (y1 * y2 gt; 0) // проверяем, если творение пар координат дает в ответе положительное число, то

then write( в одной координатной четверти ) // выводим один ответ

else write( не в одной координатной четверти ); // по другому, выводим другой ответ

end.