Напишите программу определяющую принадлежит ли в веденное число игровому кубику на языке паскаль помогите срочно надо

Считаем, что кубик имеет 6 граней, тогда число должно быть >=1 и
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var x:=ReadInteger();
  if (x >=1) and (x  else println(Не принадлежит);
end.