Данные числа х, у являются координатами точки, лежащей в первой координатной

var x, y : real;
begin
nbsp;nbsp;nbsp;write(x = ); readln(x);
nbsp;nbsp;nbsp;write(y = ); readln(y);
nbsp;nbsp;nbsp;if (x gt; 0) and (y gt; 0) then writeln(x и y в первой четверти)
nbsp;nbsp;nbsp;else if (x lt; 0) and (y lt; 0) then writeln(x и y в третьей четверти)
nbsp;nbsp;nbsp;else writeln(x и y где-то в приятелем месте)
end.