PascalДаны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка.

Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if X>0 then
   if Y>0 then Write('Первая четверть')
   else Write('Вторая четверть')
else
   if Y<0 then Write('Третья четверть')
   else Write('Четвёртая четверть')
End.