Паскаль!

Составить алгоритм, который для заданного числа Х определяет, принадлежит ли Х отрезку [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.