Pascal

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

Var X,Y:real;BeginWrite('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.