Verified answer

Ответ:

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.