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