(паскаль) написать ,определяющую принадлежность точки а(ха,уа) квадратной области на координатной плоскости ограниченной прямыми: у1=а,у2=b,x1=c,x2=d ( 6 переменных a b c d ya xa и решается через if и проверку большого кол-во условий ) нужно! буду ,если !

Var a,b,c,d,x,y: real;
begin
  write('задайте a b c d через пробел:  ');
  readln(a,b,c,d);
  write('координаты точки x y через пробел: ');
  readln(x,y);
  if a>b then swap(a,b);
  if c>d then swap(c,d);
  if ((y>=a) and (y<=b) and (x>=c) and (x<=d)) then
  writeln('точка принадлежит области')
  else writeln('точка не принадлежит области');
end.
  
задайте a b c d через пробел:  1 2 3 4
координаты точки x y через пробел: 3.5 1.5
точка принадлежит области

задайте a b c d через пробел:  1 2 3 4
координаты точки x y через пробел: 2 2
точка не принадлежит области