Ответ:
Держи
Объяснение:
program tochka;
var x, y: real;
begin
writeln ('Программа определения того, в какой координатной четверти лежит точка. Введите координаты точки через пробел');
readln (x, y);
if (x>0) and (y>0)
then write ('Точка лежит в 1 координатной четверти.');
if (x<0) and (y>0)
then write ('Точка лежит во 2 координатной четверти.');
if (x<0) and (y<0)</p>
then write (' Точка лежит в 3 координатной четверти ');
if (x>0) and (y<0)</p>
then write (' Точка лежит в 4 координатной четверти ');
end.