Задание:По заданным координатам точки определить номер четверти на координатной плоскости, где она находится.Формат ввода:На первой строке - координата X, на второй строке - Y. Обе координаты - целые числа в диапазоне от -10000 до 10000.Формат вывода:Целое число - номер черверти, где лежит точка. Если точка лежит на оси координат между четвертями, то вывести номера двух четвертей на одной строке без пробела (вначале меньший номер, потом больший), например "14" для точки с координатами (5,0) т.к. она лежит на оси ОХ между 1-й и 4-й четвертями. Если точка лежит в начале координат - вывести 0.Пример входных данных-355Пример выходных данных2Написать на паскале

program z1;

ar x,y:integer;

begin

readln(x);

readln(y);

if (x=0) and (y=0) then write(0)

else

begin

if (x>=0) and (y>=0) then write(1);

if (x<=0) and (y>=0) then write(2);

if (x<=0) and (y<=0) then write(3);    

if (x>=0) and (y<=0) then write(4)

end

end.

Если точка лежит в начале координат, т.е. х = 0 и у = 0, то выводим 0, иначе выводим какой четверти принадлежит точка, начиная с 1 четверти и по порядку.

Нестрогие условия (>= и <=) и оператор write (нет перехода на новую строку) позволяют выводить два номера четверти, если точка лежит на одной из осей, а расположение условий для четвертей по порядку позволяет соблюсти условие о том, что сначала необходимо выводить меньший номер.