ПОМОГИТЕ ПОЖАЛУЙСТА
Написать программу, проверяющую , принадлежит ли число, введенное с клавиатуры, отрезку [0,10]

program aa;varn: integer;beginwrite ('Введите число: ');readln (n);if (n>=0) and (n<=10) thenwriteln(n, ' Принадлежит отрезку от 0 до 10')elsewriteln(n, ' Не принадлежит отрезку от 0 до 10');end.

var   a : integer;    begin  readln (a);    if (a >= 0 ) and (a <= 10) then   writeln ('Число принадлежит отрезку')  else   writeln ('Число не принадлежит отрезку');     readln ();    end.