type TDigits = set of ‘1’..’9’; var digitos : TDigits; // Set variable myChar : char; begin digitos := [‘2’, ‘4’..’7’];
for myChar := ‘7’ to ‘8’ do if myChar In digitos then ShowMessageFmt(‘’’%s’’ ‘,[myChar]) end.
Assinale a alternativa que apresenta corretamente o resultado impresso:

