Question

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

Answer 1

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

Answer 2

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