program Point;
var
x, y: Real;
begin
Write ('Введите X, Y: ');
ReadLn (x, y);
if (x > 0) and (y < 0) then
WriteLn ('Точка лежит в IV четверти')
else
WriteLn ('Точка не лежит в IV четверти');
ReadLn;
end.
program Point;
var
x, y: Real;
begin
Write ('Введите X, Y: ');
ReadLn (x, y);
if (x > 0) and (y < 0) then
WriteLn ('Точка лежит в IV четверти')
else
WriteLn ('Точка не лежит в IV четверти');
ReadLn;
end.