Určování polohy bodu

program bod;
var
a,b,q:real;

begin
writeln('X[a,b]'); writeln('x ='); readln(a); writeln('y ='); readln(b);

if a=0
  then if b=0 then writeln('[0,0]')
        else writeln('y')
  else if a<>0
          then if b=0 then writeln('x')
              else
                begin
                 if a>0 then if b>0 then q:=1 else q:=4
                    else if b>0 then q:=2 else q:=3;
                 writeln('Bod leží v kvadrantu číslo ',q:1:0,'.');
                end;


readln();


end.