[Casimiro Noteví]

 procedure Felicidades(cNombre:string;iCantidad:integer);
var
  cCantidad:string;
begin    
    case iCantidad of
        1..10:    cCantidad := 'pocas';
       11..50:   cCantidad := 'muchas';
       51..75:   cCantidad := 'bastantes';
       76..100: cCantidad := 'muchísimas';
       else cCantidad='algunas';
    end;
    showMessage( cCantidad+' FELICIDADES, '+cNombre );
end;

Felicidades( 'jachguate', 100 );