написати програму, що перевря, чи належить число ,введене з клаватури нтервалу[0,5]

Краткий вариант:

Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
WriteLn((0lt;=A)and(Alt;=5));
End.



Более полный вариант:

Var
   A:integer;
Begin
Write('Введите число: ');ReadLn(A);
if (0lt;=A)and(Alt;=5) then Write('Принадлежит')
else Write('Не принадлежит')
End.