Código Delphi [-] if (resultado>=1) and (resultado<=6) then Case Resultado of 1: ........ 2: ........ 3: ........ End;
if (resultado>=1) and (resultado<=6) then Case Resultado of 1: ........ 2: ........ 3: ........ End;