дана точка с координатами x y определить номер декартовой системы координат, к которой она принадлежит

Var x, y: integer;
    z: string;
begin
     readln(x, y);
     if (x > 0) then
        if (y > 0) then z := 1
           else if (y = 0) then z := 1, 4
                else z := 4;
     if (x = 0) then
        if (y > 0) then z := 1, 2
           else if (y = 0) then z := 0
                else z := 3, 4;
     if (x         if (y > 0) then z := 2
           else if (y = 0) then z := 2, 3
                else z := 3;
     writeln(>>, z, end.

Я когда-то в школе такую писал, но эту гораздо лучше сделал *О*