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

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

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