Составить алгоритм, который для заданного числа х определяет, принадлежит ли х отрезку [a,b]

Var x, a, b:real;
Begin
Write('введите число х=');
Readln(x);
Writeln('введите начало и конец отрезка');
Readln(a, b);
If (x>=a)and(x<=b) then Writeln ('число ', х, 'принадлежит даному отрезку')
Else writeln (x, 'не принадлежит отрезку')
End.