Вопрос 6

var
    x, y: integer;
begin
    readln(x);
    readln(y);
    if (x > 0) and (y > 0) then writeln('1');
    if (x < 0) and (y > 0) then writeln('2');
    if (x < 0) and (y < 0) then writeln('3');
    if (x > 0) and (y < 0) then writeln('4');
    if (x = 0) and (y = 0) then writeln('0');
    if (x > 0) and (y = 0) then writeln('14');
    if (x = 0) and (y > 0) then writeln('12');
    if (x < 0) and (y = 0) then writeln('23');
    if (x = 0) and (y < 0) then writeln('34');
end.