Даны действительные числа x,y,z.Указать те,которые принадлежат интервалу(а;в)

Var
  x,y,z,a,b: Real;
BEGIN
Writeln('Введите X,Y,Z: '); Readln(x,y,z);
Writeln('Введите интервал (a;b): '); Readln(a,b);
If (x>a) and (x<b) Then Writeln(x:2:2,' принадлежит интервалу');
If (y>a) and (y<b) Then Writeln(y:2:2,' принадлежит интервалу');
If (z>a) and (z<b) Then Writeln(z:2:2,' принадлежит интервалу');
Readln
END.

Var
  a,b,c: Real;
BEGIN
Writeln('Введите A,B,C: '); Readln(a,b,c);
If (a>=b) and (b>=c) Then
begin
  a:=a*2;
  b:=b*2;
  c:=c*2;
end
Else
begin
  a:=Abs(a);
  b:=Abs(b);
  c:=Abs(c);
end;
Writeln('Результат:');
Writeln('A= ',a:2:2,'  B=',b:2:2,'  C=',c:2:2);
Readln
END.

var  a,b,x,y,z:real;
Begin
writeln('x,y,z:');
readln(x,y,z);
writeln('a,b:');
readln(a,b);
if (x<b) and (x>a) then writeln('X пренадлежит интервалу(a,b)');
if (y<b) and (y>a) then writeln('Y пренадлежит интервалу(a,b)');
if (z<b) and (z>a) then writeln('Z пренадлежит интервалу(a,b)');
readkey
end.