Program If22;
Var
x,y:Real;
Begin
WriteLn('Введите координаты точки (x,y) = ');
ReadLn(x,y);
If (x > 0) And (y > 0) Then
WriteLn('Точка в первой координатной четверти')
Else 
If (x < 0) And (y > 0) Then
WriteLn('Точка в второй координатной четверти')
Else
If (x < 0) And (y < 0) Then
WriteLn('Точка в третьей координатной четверти')
Else
WriteLn('Точка в четвертой координатной четверти'); 
End.