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

Короткий вариант:Var A:integer;BeginWrite('Введите число: ');ReadLn(A);WriteLn((0<=A)and(A<=5));End.Более полный вариант:Var   A:integer;BeginWrite('Введите число: ');ReadLn(A);if (0<=A)and(A<=5) then Write('Принадлежит')else Write('Не принадлежит')End.