Паскаль!

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