Как запустить case по двум переменным

program Main;
var x, y:integer;
begin
writeln('Введите координаты точки');
readln (x,y);
case x,y of
2..6,0:writeln ('принадлежит');
2..5,1:writeln ('принадлежит');
1..4,2:writeln ('принадлежит');
1..3,3:writeln ('принадлежит');
0..2,4:writeln ('принадлежит');
0..1,5:writeln ('принадлежит');
0,6:writeln ('принадлежит');
else writeln ('не принадлежит');
end.

var
  x, y: real;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if (x >= 0) and (y >= 0) and (y >= 4 - 2 * x) and (y <= 6 - x)
    then write('Принадежит')
    else write('Не принадлежит');
  readln
end.

var
  x, y: real;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  write('In area: ', (x >= 0) and (y >= 0) and (y >= 4 - 2 * x) and (y <= 6 - x));
  readln
end.

var
  x, y: real;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  case x >= 0 of
    true: case y >= 0 of
            true: case y >= 4 - 2 * x of
                    true: case y <= 6 - x of
                            true: write('Принадлежит')
                            else write('Не принадлежит')
                          end
                  end
            else write('Не принадлежит')
          end
    else write('Не принадлежит')
  end;
  readln
end.

var
  x, y: real;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  case (((ord(x >= 0) * 2 + ord(y >= 0)) * 2 + ord(y >= 4 - 2 * x)) * 2 + ord(y <= 6 - x)) of
    15: write('Принадлежит')
    else write('Не принадлежит')
  end;
  readln
end.

const NY: array [Boolean] of String[3] = ('НЕ ','');
var x, y: Real;
begin
  Write('x y: '); ReadLn(x,y);
  WriteLn(NY[(x>=0) and (y>=0) and (y>=4-2*x) and (y<=6-x)],'принадлежит');
end.