Código Delphi [-] var edad : byte; begin // Asignar el valor apropiado a "edad" case edad of 1..10 : ShowMessage( 'Hasta diez años' ); 11..20 : ShowMessage( 'Más de diez años' ); else ShowMessage( 'Otra edad' ); end; end;
var edad : byte; begin // Asignar el valor apropiado a "edad" case edad of 1..10 : ShowMessage( 'Hasta diez años' ); 11..20 : ShowMessage( 'Más de diez años' ); else ShowMessage( 'Otra edad' ); end; end;