Program SubRangeTypeNumeros ;
type // crio o meu tipo de dados
 numeros=18..100;  //TYPE SUBRANGE para números
        // este tipo de dados pode ser sujeito a read ou write
var
   num:numeros; // o tipo de dados definido em type
Begin
   writeln('digite um número');
   readln(num);
   if (num>=18) and (num<=100) then
      writeln(' O número digitado foi ',num,' esta dentro do intervalo' )
    else
   writeln(' O número digitado foi ',num,' esta FORA do intervalo' );
end.